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1. ABSTRACT 
S PROGRAM IS @ "EMORY EXPANDABLE INTERACTIVE BUS EXER- 
ers OF a ENG p con Pot Aberatlone oF 120" 
OUSLY. — IF MAY ALSO PERFORM THE 
a NOEPENGENTLY, TTS PROGRAM i> NOT 
Q 1s ay TOTAL CHeCK OF THE SYSTEM. IF AN ERRO 


\ Be Conne ce DEVI THe PALF v7 TH THE RESPECTIVE sian 


IN THIS VERSION THE INTERRUPT SERVICE ROUTINE FOR THE 
DISKS, KWIIL, PLUS THE STA fo THE NPR DATA BUFFERS ARE 
RELOCATED 70° THE CURRENT BBN 

2. REQUIREMENTS 

2.1 EQUIPMENT 
PDP-11 STANDARD COMPUTER 


2.1.1 OPTIONAL HARDWARE THAT THE PROGRAM WILL EXERCISE 





MM11 UP TO 28KW OF MEMORY 
RCll DBISk 

RKIl DISK 

RP1i = DISK 

RFI] DISK (256K 

Toll DECT ANSPORT 

KEI1A EXTEND Of ARI THMET 1S int 

KWIIL LINE CLOCK 

PC11_ ‘HIGH SPEED READER/PUNCH 

BI!  ASR33 OR ASRSS TELEPRINTER-LC11, VTOS 
LBil LINE PRINTER 

[S11 LINE PRINTER...SEE S.2.11 


2.2.1 PROGRAM STORAGE - THE ROUTINE USES 
WK OF MEMORY 


J. LOADING PROCECURE 
3.1 METHOD 


} 6 

: 2.2 STORAGE 
| 

| PROCEDURE FOR NORMAL ABSOLUTE TAPES SHOULD SE FOLLOWED. 
} 

| 

| 

j 
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4, STARTING PROCEDURE 
S PROGRAM HAS BEEN MODIFIED TO RUN WITH OR WITHOUT 


ie Be oe CE REHINE. 16 ust: eesisTER THE PROGRAM 






FTOMAT TERETE OOKe ST THE CONTENTS OF LOFATION 
SaaS ehutiortednn © 






S THE RESPONSIBILITY OF THE OPERATOR TO set UP 
ure LOCATION PRIOR TO STARTING THE PROGRAM 







THE PROGRAM REQUIRES TWO BELLS ON THE TT 

TQ MAKE ONE TRUE PASS 4 THE PROGRAM. THE FIRST SELL 
OCCURS AFTER ONE PASS OF nee fee aioe WITH 
THE TRACE BIT CLEARED. rh SEL MARKS THE 
ST. OF AN INSTRUCTION Test" PASS WITH THE TRACE BIT 







4.1 CONTROL SWITCH SETTING 
STARTING AT SA 200 ALL SWITCHES SHOULD BE SET AS INDICATED. 
4.2 STARTING ADDRESS OR ADCRESSES 


(A) 200 = SR = 000777 TEST PROCESSOR ONLY-WITH CORE EXPANSION 
(3) 200 = SR = 001777 TEST PROCESSOR ONLY-4K-INHIBIT 


CORE EXPANSION 
(C) 200 = SR = OO2xxx TEST 1/0 ONLY 
(D) 200 = SR = 000000 -CORE EXPAND AND TEST ALL AVAILABLE 










1/0 DEVICES 

SWO = 1 INHIBIT TTY OUTPUT 

Sidi = 1 INHIBIT TTY INPUT 

Swe = 1 INHISIT HSP 

SW3 = 1 INHIBIT H5R 

Sw4 = 1 INAIBIT LINE CLOCK 

SWS = 1 INHIBIT RF11, RK11, RCLL AND RPLL OISKiS) 

SW& = i INHIBIT TCli DECTAPE 

Su7 = 1 INMISIT LINE PRINTER --- IF LINE PRINTER IS USED, 
MUST RESTART AT S02 

IF EAE EXIST IT WILL BE AUTOMATICALLY SELECTED 
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4.3 


§.1.3 
5.2. 

S.2.1 
§.2.2 


EOL 





PROGRAM AND/OR OPERATOR ACTION 


br Su ten, geo ee Ng ek See tt aRTING ADDRESS. 


SET. ~suntes TO INHIBIT NON EXISTANT DEVICES 

THe BROGRAN H cE PER 
Wis WILL RI Noe one ore PASS OF THE PROGRAM. 

MINIMUM OF TWO PASSES SHOULD 

ALUAY S BE RUN. 
OPERATING PROCEDURE 
OPERATIONAL SWITCH SETTINGS 
AT SA_200 .. THE INSTR et ON AND Loere Tes TEST. WITH ALL SWITCHES 
DOWN THE PROGRAM WILL ALL DEVICES AND PRINT OUT ON ERRORS 
AND CONTINUE IN TEST. (BELL WILL RING AT COMPLETION OF A PASS) 
SWITCH SETTINGS ARE 


SWiS = 1 OR UP ... HGLT ON ERROR 

SW14 = 1 OR UP ... SCOPE Loe 

SW13 = 1 OR UP ... INHIBIT PRINTOUT 

SWl2 = 1 OR UP ... INHIBIT TRACE T 

SW11 = 1 OR UP ... INHIBIT ITERATION LOOP 

SWi0 = 1 OR UP ... INHIBIT PROCESSOR TEST 

SWOS = 1 OR UP ... INHIBIT VARIABLE CORE EXPANSION 
SWOB = 1 OR UP ... RESTART 


BEGIN SA 200 
SCOPE 
THIS SUBROUTINE CALL 13 PLACED BETWEEN EACH SUBTEST IN THE 
INSTRUCTION SECTION. I aa THE STARTING ADDRESS OF EACH 
ate IT IS BEING ENTE ce it 1 
WILL TUNE 10 Th ers te sietest't T ne SCOPE LOOP 
STED SCOPE IS 7s NOT et THERE li 


mmo 
nm 
mre 


IF 
fest eee etel” mares fh oe 


w 
=m 
bod 
pai 
i 


INH 





FOL 
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§.2.3 HLT 


aye ey a OE Na te ms 
FAIL 


PROCESSOR TEST BRING EXCUTED AT THE TIME OF 


UR a AFTER 
TESTING THE TRACE 
PROGRAM. WHEN 


LOOPS 
EACH a Abe a} THE FIRST 


TRAPCATCHER 


THIS IS A SERIE 
IGNED TO XPECTED iw AND 


0, DES 
INTERRUPTS TO T ERRUPT VECTOR AREA 


af WAS AT, WHE 

(MEMORY AS SPECIE TED 

CONTA THE INSTRUCTION FOLLOWING THE 
ENSTRUCTION WHERE TRAP OCCURRED) . 


TTYINL (TTY INPUT) 

THIS ROUTINE OPERATES IN THE INTERRUPT MODE 

NO ee Oe ee ait ake THE READER 

OF THE THE ROUT ey WILL ACCEPT AN Pe OUTS 
(BLANK TAPE). BUT THE 


A ONE 
T 


SA 
IS 1GNORED. ts NOT A 
GED. 


DER APE MUST HAVE A COUNT PATTERN AND BE 
CATED. ON THE LEADER PORTION WHEN STARTING TEST. 


S.2.7 TYOUT (TTY OUTPUT) 









GO1 
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mus, i . Ay Te THLEPR A ven. OP a Poe oe 


IAB CADE eels bl cs! 


~§.2.8 SFSTART (RF-11 DISK) 
THIS ROUTINE PERFORMS A WRITE AND 
THE DA T 






OF THE DISK. 
F TEST PROGRAM 
CORE IS WRITTEN 
Y. R_THE TOTAL 
ISK(S) HAS USED TO Mae ay THAT 
THE DATA HAS BEEN WRITTEN CORRECTLY ON THE DISK. NOTE THAT NO 
INTO CORE). USED IN EXERCISING THE DISK (DATA IS NOT TRANSFERRED 
INTERRUPT SERVICE ROUTINE AND 


OA A BUFFER IS TRANSFERRED TO THE CURRENT 
BANK THAT INSTRUCTIONS ARE BEING EXECUTED IN. 











5.2.9 FENDZ (TC11 FORWARD END Z0NE) 
FEND ENOZ ISTHE FIRST ADDRESS IN THE pecTape INTERRUPT 
Gea Ske oe THE ReVenae END bone Te FOUND. AT tH 
roe Seo ke 
— BLOCK Tad reer IN hart THE xe BLOCK NUM- 
BE AND MISCOMPARISONS REPORTED. WHE H BLOCK IS 
' OF TEST DATA « ATT TO TAPE OFT BE ( BLOCK NUMBERS 
THE APE eS SRIVEN INTO END ZONE. 
HE DIRECTION IS REVERSED AND ALL BLOCK 


E 

Rev TARTING WITH BLOCK 1100(8) THROUGH BLOCK I Fe 

8 YE READ PRON TAPE” THE SAME BUFFER TS USED FOR BOTH READ 
Tr THe WRITE _OPERAT iOS a? 


HE DAT Reine 
RES TRO YEO Th 8 pO OPERATION IT MAY BE NECESSARY TO 








§.2.10 LCLK (LINE CLOCK) 


Tap TH SASSO IS DT 


0 are LEVEL SEC OF begs uid “STALL FOR'S 8 SECONDS. 
HIS IS BASED ON 60 CYCLES AS THE LINE FREQUENCY. 


S.2.11 LP1 (LINE PRINTER) 
THIS ROUTINE OUTPUTS TO THE LINE PRINTER IN 
THE FLAG MODE WHILE FILLING THE BUFFER IN 
THE INTERRUPT MODE WHILE THE BUFFER IS BEING 


PRINTED. 
FOR 132 COLUMN PRINTER CHANGE LOCATION LP8O FROM 117 TO 203. 
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§.2.1l2 


§.2.13 


5.2.14 


HO1 


7 


HSRINI (PC11 INPUT) 
S ROUTINE OPERATES IN THE INTERRUPT MODE AND CHECKS FOR A 


RITE MunGER OF Zeno BYTES (BLANK TAPL). “BUT The FIRST 


HY Rust BE ONE GREATER TF THE Bie OETECTS. at AN ER ORIN THe wes 
Count. oer A wenn ERROR I 


READER Fue NFaPE must HAVE A COUNT PATTERN AND B 
ao ON THE LEADER PORTION WHEN STARTING TEST. 


HPOUT (PC11 OUTPUT) 

THIS IS A ROUTINE THAT OUTPUTS A COUNT PATTERN IN THE IN- 
T MODE TO THE HIGH SPEED PUNCH. 

RKSTART (RK-11 DISK) 


THIS ROUTINE 
He Mee vd mae ORT TTEN ron ue 


EXECUTED IN. 
RCSTART (RC-11 DISK) 
ngs ROUTINE PERFORMS 


TI” ARE USED IN 
INTO a AE THE INTERRUPT 
SERVICE OU TANE AND DATA TRANFERRED TO THE CURRENT 
BANK Hat INSTRUCTIONS ARE. BEING EXECTUTED IN. 
RPSTART (RP-11 DISK) 


THIS ROUTINE PERFORMS A WRI 
THE DATA IT 


UOUS ot K 
Bik (5) HAS BEEN BM TTeN TT Ne 
ui, rhe ae HAS 


a Ts NOT T 


sis a eer es SPUN eet 


XECUTED IN. (FOR THE RPO3 THE ISR "ust BE MOTIFIED TO TEST THE FULL SURFACE? 





101 
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5.2.17 CORE EXPANSION (DET1) 
THIS ROUTINE IS CONTROLLED BY SWITCH 9. THE PROCES 


PU, TR ttle "AS Mt ERG eH 


LOCATION IN EACH 
a TINE OUT WI CUR 


LL OCCUR. 
Pao Fs TRU. hPL 
BE te st OYED HOMERE Ts Ag A su P INSERTED TO THE PiRSt Sua 
TEST OF THE NEXT BANK. WHEN IN THE LAST BANK THE MODIFIED 
INSTRUCTION WILL TRANSFER YOU to BANK 0. 
THE LISTING SHOWS ONLY THE CODE OF BANK ZERO. 


WHEN AN 
OR OCCURS THAT IS NOT IN BANK ZERO, IGNORE THE BANK 
BITS OF THE PRINT OUT AND USE THE LISTING FOR BANK ZERO. 


PROGRAM AND/OR OPERATOR ACTION 


booing AND START Ne. AT 200 WITH ALL SWITCHES 
DOWN IS W CASE TESTING. ott IS 
oe eee HERE, THERE WILL BE A PRINTOUT. WHEN 
AN ERROR on aF DETECTED AND IT IS NECESSARY TO 
Raw ecre th oan SW1S TO HALT ON ERROR 


N THEN SW13 TO 
DELETE Prinrovis. THEN THE MACHINE MUST BE CONTINUED. 
ERRORS 


ERROR PRINTOUT 
ARE_IN A THREE WORD FORMAT, THE 1ST IS PC+2 OF THE 
DE TECED FERO THE 2ND. IS’ THE STATUS REGISTER. 
THE 3RD Site PROCESSOR TEST AT THE TIME OF THE ERROR 
(CONTENTS: OF RETURN) 
REFER TO THE CESTING FOR DETAILED INFORMATION. 
ERROR RECOVERY 
Y READER AND HSR, TAPE MUST BE REPOSITIONED TO 


t oROER Serica? TEST. IT YOU DESIRE TO HAVE 
THE PRO PROGRAM T ON AN ERROR MAKE SWITCH REGISTER 


RESTRICTIONS 
STARTING RESTRICTION 


IF LINE PRINTER IS USED RESTART ADDRESS MUST BE 400 
FOR HSR AND TTY READER, TAPE MUST BE ON LEADER. 


OPERATIONAL RESTRICTION 





JOl 


-MAIN. MACY11 271732) 14-SEP-76 10:54 PAGE 9 
DZQKBF.P11 


IF OPERATION UNDER MONITORS, THE CONSOLE DEVICE,LINE PRINTERS 
AND THE SYSTEM DEVICE ARE NOT TESTE 
8. MISCELLANEOUS 
TRACKING DOWN UNUSUAL FAILURES 
FAILURES THAT MAY OCCUR BECAUSE OF A FALSE ENTRY 


INTO A SUBTEST OR A FAILURE IN A A CONTROL ROUTINE 
RATHER to ef veh DETECTI THESE MAY BE 
Y SEVERAL PROCED 


I TO REDUCE INS 
FUSING SITUATION, THE “SCOPE™ LOCATION. FOLLOWING THE 
SUBTEST SHOULD BE CHANGED TO A BRANCH FIRST 
INSTRUCTION OF THE SUBTEST (THE FIRS ee: FOL- 
LOWING THE PREVIOUS SCOPE LOcAT TON) HE "HLT™ LO- 
BATION MAY BE REPLACED WITH 


8 USER MAY ADD A UNIQUE ROUTINE TO THIS TEST TO EXERCISE 
A NON oe OPTION FOR CHECKING BUS INTERACTION WITH HIS 
EXISTING DEC OPTIONS 


FOR TROUBLE FREE INTERACTION THERE ARE A FEW GROUND RULES 
THAT SHOULD BE FOLLOWED. 


1. USE NO REGISTERS. 

@. THE ROUTINE SHOULD BE STAND ALONE. 

3. THE EXISTING “HLT” SHOULD BE USED FOR ERROR DETECTION. 
4 


ODE IN THE PRIMING AREA SHOLD SET INTERRUPT 
NABLE, INITIALIZE DATA AND RAISE A FLAG IF NECESSARY. 


S. THE INTERRUPT VECTOR STATUS WORD SHOULD CONTAIN THE 
PRIORITY LEVEL OF THE DEVICE. 


6. ROUT + mati VECTOR SHOULD POINT TO YOUR STAND ALONE 

7. THE STAND ALONE ge COMPLETING ALL HOUSE KEEPING 
OPERATION AND DATA CO pel THEN EXECUTE A 
“RTI” TO RETURN TO MAINLINE CODE 

INSERTION OF USER I/0 ROUTINES 


1. MAY BE INSERTED IN BANK ZERO WHERE 1/70 ROUTINES EXIST. 
FOR DEVICES THAT THE USER DOES NOT HAVE, IF CORE EXPANSION 


KO1 
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IS TO BE INHIBITED, THE USER MAY OVERLAY THE EXPANSION COCE. 
IF THE USER HAS MORE ney Py Se ROUTINE 
cepmepabslognaninen 


HE PRIMING CODE ay INSTRUCTIONS 


is ze Woap. OF Tha. INerRUCT ON 13 Bh ge Z a 


Ma ER SHOULD ret CHAN HIS PRIMING ROUTINE WITH A 
Rise %? TINS TRUCTION. 


EXECUTION TIME 


XECUTION VARIES WITH NUMBER 0 OF DE 4KW SYSTEMS WITH 
NLY, ABOUT NUTE W — BIT CLEARED 
AgouT 1.5 MINUTES WITH The” TRACE 8 


PROGRAM DESCRIPTION 


Deo TT ee OF THIS SYSTEM EXERCISER, IS PREDICATED 
BEING PRIMARILY INTENDED FOR A PAPER TAPE 
SYSTEM WITH FOUR KW OF CORE BND I 
RUN UNDERSTAND. ALSO, THAT 

HIDE MUL TITEDE OF PERIPHERAL 


C 

THE EXERCISER. 

THERE IS NO MONITOR IN THE 
DEVICE THAT IS TO BE EXERCISED 
LONE ROUTINE THAT OPERATES 


IZES THE DATA P AND INI 
RAISE THENCE FLagS ON AVIS fe ie ee T 


THEN R JUMPS 
CrScoR si “Heke THE tNDTVIDUAL DEVICES 
AT THE INTERRUPT RATE. 


THE INSTRUCTION EXERCISER IS A STRAIGHT LI 
OF INSTRUCTIONS. THE SEQUENCE IN WHICH THE 
EXECUTED IS THE SAME SEQUENCE IN WHICH THEY ARE 









DZQKBF .P 
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SHOWN IH, THE LISTING. Ace AREA OF CODE teen 
“SCOPE T eCopE® TS AN NDIVIOUAL TED ONE 


Bees Recta a Soe, 
Ad TE UU MERE DEC REE 
Fate oie aa ete Ja Pane 

NODE: 






TESTED USING THE IMMEDIATE MODE INDIRECT. THESE 
MODES ARE TESTED AGAINST OTHER MODES; WHICH MAY USE 
A REGISTER OR MEMORY LOCATION. THESE WILL BE SWAPPED 

BETWEEN SOURCE AND DESTINATION. 


AFTER THE MODES AND INSTRUCTION HAVE BEEN PROVEN 
IN THE WORD MODE, THEY ARE THEN TESTED iN THE BYTE 
MODE. OTHER TESTING IS ALSO DONE WHERE THE “JSR” 
eat on IS TESTED IN NESTED COMBINATIONS. ALL 
COMBINATIONS OF NUMBERS ARE TESTED USING THE COMPARE, 
ROTATE, ADD AND COMPLIMENT INSTRUCTIONS. THERE B. 
ALSO A’MINIMUM TEST OF POWER FAIL AND AUTO RECOVE 

WHICH IS NOT ENABLED UNTIL AFTER THE FIRST PASS OF “tue 


THE REASON FOR EXECUTING ALL INSTRUCTIONS 

WITH THE TRACE BIT SET IS TO TAKE US INTO SERVICE AT 
THE END OF EACH INSTRUCTION. 

THE CORE LAYOUT IS BROKEN INTO FIVE DISTINCT PARTS: 


THE TRAP CATCHER, 
THE SET UP AND I/O PRIMER AREA AND 1/0 TEST ROU- 


(1) 
(2) 
TINES 
(3) THE PROCESSOR TESTS AND 
(4) CONTROL AND UTILITY ROUTINES. 
(S) CORE DETECTOR AND EXPANSION ROUTINE. 
10. LISTING 


ll. FLOW CHART(S) 
“ENABLE ABS 
;POP11 PRELIMINARY SYSTEM TEST --- TTY-PCII-LPLL,RFIL,TC11,KMIIL RKLL RCL 


jTEST SIMULTANEOUS RUNNING OF 1/0, WITH PROCESSOR INSTRUCTION TEST AND WITH 
‘WITH TRACE | BIT ENABLED TO BE CONSIDE DER MAINL ODE 


OP=240 SYSTEM NULL OPERATION 
HL T=EMT : TRAP ustD FOR ERROR PRINTOUT 
SCOPE=TRAP TRAP USED SCDRE MT OOP AND ITERATION OF SUB PROBLEMS 


CC=177776 








RP11 AND KELL 
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016062 TUSR=TCSR 


A7eone 1 ta tical 












.20 

he 100 

+ ; TRAP ENTRANCE 

HALT : TRAPPED TO PREVIOUS LOCATION 


Se. 


60 000014 
602 000014 000016 










603 000016 00000 HALT FALSE TRACE TRAP 
Boe 0024 nee 3 BFaIL 
606 BpBOSe 0340 340 
607 600030 230 
608 000030 OISSEY PRINT. - sFOR HALT TRAPS 
609 009032 000340 340 ‘HIGHEST PRIORITY 
610 000034 ~— 23 
611 000034 Oi6364 SCOPEC sUSER TRAP 
612 000036 o0o000 0 
613 ooogo46 ; “246 
eI pooo4s biss34 LOGICA RETURN TO MONITOR ADDRESS 
b1e ooo0s2 o40000 040000 sEXECUTION TIME IS MEMORY SIZE DEPENDENT 
618 
619 :(R&) IS THE STACK POINTER 
620 :((R6)) IS THE PC+2 OF LOCATION WHERE THE TRAP ORIGINATED 
621 FOR NORMAL OPERATION RUN WITH ALL SWITCHES DOWN 
-SR 15=1 OR LT ON ERROR 
SR 14=1 OPE LO 
:SR 13=1 IBIT 
625 SR l2=1 0 NHIBIT T APPING 
626 SR 11=1 OR UP---INHIBIT SUB-PROBLEM ITERATION 
627 SR 10=1 OR UP---INHIBIT PROCESSOR TEST 
628 :SR O9=1 OR UP INHIBIT VARIABLE CORE EXPANSION 
629 ‘SR O8=1 OR UP RESTART ON ERROR 
p30 SPECIAL DELETE SWITCHES-SET RESPECTIVE SWITCH TO A 1 TO INHIBIT INITIATION OF DEVICE 
632 SW O= BIT TTY OUTPUT 
SW i= BIT TTY INPUT 
a= BIT HSP 
3= BIT HSR 
= BIT LINE CLOCK 
S= BIT RC, RF. RK, RP DISKS 
b= BIT TCl1 DECTA 
7s BIT (ine PR tN FER --- IF LINE PRINTER IS USED, MUST RESTART AT S02 
EA T IT WILL BE AUTOMATICALLY SELECTED. 








0Z0K 


0206 
000210 
000212 


000214 
000216 
000220 
000eee 


000254 
000256 


BooaI6 
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00e$12 
000240 
000214 
00 


000240 
000254 


002425 


000240 


177460 
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000502 


;POP11 SIMULTANEOUS 170 


SRPTR: j 
SOFTSR: 


TTYINR 


i 
J 


17 
177460 


d#START 


NOL. 


;TTY IN INTERRUPT VECTOR 
;TTY OUT INTERRUPT VECTOR 
;HSR INTERRUPT VECTOR 

;HSP INTERRUPT VECTOR 
EVEN DRT AE <0 
MEMORY PARITY 


pRELL DISK 
VEL S 
RC BIsk 


;DEC_ TAPE 
LEVEL 6 


;RK DISK 


;RP DISK 


;DISK ADDRESS AND ERROR 
sDISK Spt ae REGISTER 
;WORD COUNT REGISTER 

; CURRENT ADDRESS REGISTER 
:STATUS REGISTER 












.MSIN, 





DIOKBE.PLL 


g97 
£98 
£33 


u 


REBReS 


c 


aade 


SINININININININ III 


909329 
QOC322 
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17746) RFCSRH: 177461 sHIGH BYTE ADDRESS 
177442 RCDAR: 177442 ‘DISK ADDRESS REGIS ER” 
1rrape RCW: 177450 “WORD COUNT REGISTER 
1774 RCBAR: 177452 ‘CURRENT ADDRESS REGISTER 
17744g : ROCSR: 177446 STATUS REGISTER 
177447 RCCSRH: 177447 ‘HIGH BYTE ADDRESS OR CSR 
177413 RKDAH: 177413 : BYTE OF DISK ADDRESS 
177412 RKOAE: 177412 *DISK ADDRESS REGISTER 
177406 RKWC: = -:177406 WORD COUNT REGISTER 
177410 RKBAR: 177410 ;CURRENT ADDRESS REGISTER 
177404 RKCSR: 177404 STATUS REGISTER 
177405 RKCSRH: 177405 HIGH BYTE ADDRESS OR CSR 
177304 MQ: 177304 ‘Fae LOCATIONS 
177302 aC: 177302 
177310 Sc: 177310 
177311 SRE: 177311 
177306 MUL: 177306 
177300 OIV: 177300 
177312 NOR:  1773le. 
177314 LSH: 177314 
177316 ASH: !77316 
: -DECTAPE ADDRESSES 

177349 $C2177340 
177342 TCCM:  TC+2 sCONTROL AND FUNCTION 
177340 TCST: TC GENERAL STATUS 
177350 : DAT 
177344 Fh CWC: = TC+4 1 OeRo COUNT 
177346 TCBA:  TC+6 *BUS ADDRESS 
009214 TeIv: 214 :DECTAPE INTERRUPT VECTOR 
176722 RPCA: 176722 :CYLINDER ADDRESS RP11 DISK 
767 RPDAH: 176725 *HIGH BYTE OF DISK ADDRESS 
176724 RPDAE: 176724 :DISK ADDRESS 
176710 RPDSR: 176710 “DRIVE STATUS REGISTER 
767 RPDAR: 176724 *AISK ADDRESS REGISTER 
176716 RPWC: 176716 :WORD COUNT REGISTER 
767 RPBAR: 176720 :CURRENT ADDRESS REGISTER 
17671 PCSR: 176718 :STATUS REGISTER 
17671 RPCSRH: ie ;HIGH BYTE ADDRESS OR CSR 
9 “DISK COMMAND 

Pha ahs CHECKS THE READ DATA BUFFER TCl1 

OIN CHECK sun ON THE DATA 
O10146 ify (6) ;SAVE THESE ON THE STACK 
019346 NOV “3 -(6) 
905003 CLR %3° ie OF DATA 
012701 003426 MOV #TCRBUF ,%1 DRESS OF READ BUFFER 
62103 TC2: Add (1)+,%3° EVEN AD: 
bee103 ADD (1)4)43 :000 ADD -2°S COMPLIMENT 
1775 BEQ Tce 

020127 oos4ie CMP %1, sTCRBUF +1000 :AT END OF BUTFER? 
101001 BHI +4 YES BRANCH 
104000 HLT ‘DATA ERROR 
012603 MOV (6)+,%3 RESTORE THE REGISTERS 
612601 MOV {g)+ KL 
005207 ! RTS “7 






sEXIT 
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Q12e767 
000002 


012767 


000240 


016762 
177370 
177364 


177354 


00000! 
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914232 


177314 
177262 


C1SE36 
177156 


015510 
000094 


aa0eo4 


NOEAE: MOV :BRANCH AROUND EAE ROUTINE 
RTI JUMP OVER EAE SECTION 
:§78RT MINI MONITOR 
STAR He & IF LINE PRINTER. WAS ENABLED 
START: MOV aPFAIL, 24 $61 T POWER FA FAIL VECTOR 
* Mov aBUFF XE TACK 
MOV 815.4 3SET UP TIME OUT VECTOR 
TST asSRPTR :TRY TO REFERENCE THE 
‘HARDWARE SWITCH REGIST ER 
3R 2s SBRANCH IF NO TIME OUT 
1$:  . MOV aSOF TSR, SRPTR :CHANGE THE SWITCH 
:TO POINT TO A 
CMP (6)4, (6)+ RESTORE THE STACK 
23: MOV 6.4' ; RESTORE TIME OUT VECTOR 
MOV ashore REG! SR TO REGISTER 
TST g85AV Re ;SET ON BOHER FAIL 
BEQ ESTAR 
CLR Fe OUR 
HLT :A POWER FAIL OCCURRED 
ESTART: CLR 
MOV #BUFF “6 :SET UP STACK 
HOV sSTART2, RETURN 
MOV #340. STATUS sLOCK NTERRUPTS 
CLR Beroas : PRINT bu INE SUSY 
MOV REGI,RSR SAVE SuITC 5 
MOV #100,R190 : INTERRUPT ENABLE ; 
Hv #101'R10! : INTERRUPT ENASLE AND GO 
p15 
START2: BIS : R100, ITRCSR 
git R100, 3TRCSR : INTERRUPT ENABLE 
HLT * sRESET DID NOT CLEAR INTERRUPT ENASL 
;DOES “RESET™ ON THE BUS LAST TCO LONG 
MOV SBUFF , Xb ;SET UP STACK 
RESET 
BIS R100, 3TTCSR :SET A BIT 
git R100, aTTCSR IS IT SET 
HLT sRESET IS ON BUS TOO LONG 
CLR aTTCSR 
SCOPE 
BIS R100, JTTCSR 
CLR at TTCSR IF BUS HANG, CHECK NO SACK 7 
SCOPE 
RESET 
MOV #BEGIN, RETURN 
MOV BNOEAE, 84 :TEST FOR EAE 
TST ana ‘TRAP IF NONEXISTA 
MOV SRTIA,4 ISET uP FOR RORSEXLSTANT 10 
MOV #340,6 ‘KEEP NEW PSW AT 34 
MOV #1,DATAL :BASE DATA POR TTY READER OR KEYSOARD 


C02 


#240, EAESRT 


I TRAP OCCURRS 
TCH REGISTER POINTER 
Agate SWITCH REGISTER 





- 
o- 
e- 
<= 
~- 
e-- 
fw 
2] 
~ 


8 
Pv 


mura 
clot 


a~3 


og 


O—- > $b + 0 = 0 b&b -- 9-H 


MONIT UMN £CLIT-O 
~“ 


om 
bm be 
or 


(OUND CO CoO~DWw COC~OW 
~ 
at 
~ 
NINN 


BRasags 
aes 


gis 


i 
88888S888888888SS88ES888888S8SRB888888888888S88ES8S888E888 


: 


3 


ae 


2 
ow 


SB 


oO 
- 


Bie 
Aon 


7 


ae 


= 
Rr 
~) 
N 


FRLCRA CIR IONE 


PEP 
won) 
RIES Pha TIS PRES PHONG SERBS JIT OR CEL ERRSE 
ee O0O0000 


ze 


rorure 


APR ML ai itetetet ete etetntnt at eit stetetetetetetaletetataiatatatatataiatetatareyater 


psa dab Sata ta 


Ww 
ooo 
ara 
JIE 
-“- 
New 


~ 
£ 


L4-SEP; 


000626 
Bootes 


01762 


002664 
002674 
004503 
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000674 


176752 


176630 


177235 


001364 
77072 
177050 


OBZOIO 
AS or 
4~<w=< 


se tet 


WwMBOwown.: w OWMWMw-4w 
rime ein) Saw et Teta 
MNDD+NDDDWwN 


41 
mam 
wo 


BUG 8 
racer 





at jae 


TRCSR 


MMSDwnzaw 
B 
oO 


4 
we 


Pisteozelton oe 
, oe Bes = 


#TCFIRST, TCEXPE 
oF cI 
#R+ZE+RB+D0, TCCM 


sBASE DATA FOR Ty PUNCH OR TELEPRINTER 
i Bae Bate FOR Hep 
sFOR READER STALL 

LOCK OU i NteR UPTS 


sTTY OUT 
s TTY 
: TEST 


:HSP 
sTEST FOR OUT OF TAPE 
RESERVE FOR OVERLAYS 


1020 G 
;1022 GTP OVER LAY 


;FOR STALL HSR 
sHSR 


;LINE CLOCK SQ OR &0 CYCLES 


;WAIT FOR CONTROLLER READY 


;RESET ORIVE 
;WAIT FOR CONTROLLER READY 


;WAIT FOR ACCESS READY 
;CLR ATTENTION 


;WRITE CHECK/WRITE RF 
; TELL DISK TO READ OR WRITE 
; TEST FOR DECTAPE 


sFIRST BLOCK SHOULD BE ZERO 
:;G0 TO E 
s;MOVE REVERSE 











- HSR - 





IN 
FOR OUT OF TAPE 


OVER LAY 


NO ZONE ON INTERRUPT 
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3 : iT cre, ses PRINTER 
Baa iS3 Arps30 V t39'¢ SOLPAT BET 1 fon Sat oF LINE PATTERN 
000612 000720 MOV LP6+4 CLINCT eh 


2 #40, URPAT 
14 oop eee V 4 SUBbBR sLINE FEED TO POSITION BUFFER 
37 002144 O00200 acini 3#200 : INTERRUPT VECT 


; SOR LEVEL 4 
Ady ates og in 
015550 ST8: ;NO_“T” BIT FIRST PASS 
; IF OPERBY TON win DrRGNOSTIC PACKAGE OR’ ACTII 
176426 42 
STBA ;BRANCH IF NO MONITOR 
sriie 4 


CSR sNO LINE PRINTER WITH MONITOR 
aTTcSR NO CONSOLE TEST WITH MONITOR 


7 41 1S IT 
3Rk ;YES DON’T TEST RK DISK 


saree § 


cpD0D 
ro 
888888 SSS8B8888S8S8 =— 


b= 20 => -= b= b~ Ob — 6 & = 9 Fb + = = 2 = pe he b- > ~-p- 


awa 
> - > -b— &— <p +p - rp 


vs Sa 


Bee PR PER oe sel totat 
& SENeRaeoRes 


S8888888888888 


reerearery 
or 


CSR 
eo DET SCRE CK FOR CORE EXPANSION 
® Fart FoR" gus Eaton 
86,4 *FOR USER 1/0 PROGRAM 
STATUS ALLOW INTERRUPTS 


WAIT WAIT HERE FOR INTERRUPTS 
JSRPTR, #2000 INHIBIT PROCESSOR TEST 
MAIN. THE 


ee 
BEANE POSS ORe 


@Mama 
AES 
wut 


;STATUS OF SELECTED DEVICES 
AN RTI FOR NON EXISTANT I70 


;TTY RECEIVER VALUES 0 TO 377 
176532 TTYINR: ore i 31S DONE SET 
HLT ;FALSE RETURN FROM MAINLINE 
176524 aTrOn TEST DATA FOR LE AOER 
176516 a ali NOT LEADER TEST FOR DATA 


;DATA COMPARISON ERROR 
000016 TING: Inge parol INCREMENT DATA 


reais poe TYINe: INC aTRCSR START RROER 
AY eFtRN TO MAINLINE 
DATAL: XX EPecTeD DATA 


;TTY TRANSMITTER PRINT VALUES 0 T0 377 


Pst insisee tity 


BESSSSSSSSSs5 


8 


Wt Wr-O 
BB88e 


2 APSE soRReOS 


WONwWN OOWWOWWw 
0-2 b= 02 = 28 = 0 


tJ 
OwOono 
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I 


OKBF 
921 
s 
925 
. 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
949 
341 
345 
43 
44 
945 
Boe 
947 
348 
949 
950 
951 
952 
953 
954 
955 
956 
957 
962 
223 
960 
961 
362 
963 
a64 
965 
966 
967 
968 
969 
970 
97 
97 
974 


105777 176462 TYOUTR: TS aTTCSR sTEST FOR DONE 

ahs “he tae OH AT ERRUGT RETURN 
009010 . DATA2 SERRE MENT Ai 
016777 Oco004 TYOUT!: MOV DATA2, ATTOBR : OUTPUT ” BEVICE 
coooge2 ? RETURN TO MAINLINE 


DATA2: XX ; TRANSMITTED DATA 
;HSR SECTION VALUES 0 TO 377 : 


HSRINR: TSTB @HRCSR . $18 DONE SET 
BMI +4 


HLT ;FALSE RETURN en | ci 
TSTB @HROBR TEST pare F 


HSRIN2 
CMPB _— ;NOT LEADER TEST FOR DATA 


;DATA COMPARISON ERROR 
S INCREMENT DATA 


ae DATA 
T READER 
RETURN TO MAINLINE 


;EXPECTED DATA 


=RSR 


SB88B8888 
% SEERSRRgR 


-\-= 
ala 


HSRIN1: 
HSRIN2: 


Takeaabsaenes 


88 


DATA3: 


;HS PUNC 
s ENABLE 


POU 
HPOUTi: 
HPOUTR: 


T 


if 
gat 


ct I UE 


C UNCH ONLY ATT rites) 

AY, JHPDER souTrut TO poy 
@HPCSR 

+4 


w 
—-0 
As 


377 
Pp 


ne 
a? 
a= 8a 
Pans 
*8 


L ml 


DELAY, JHRCSR 
NTCNT 


aenenciedie 
DGS 


ze 
oow 
@o 


: DATA 
AT UPPER LIMIT START OVER 
*FINISH REST OF DATA 
DATA: 
INTCNT: 
DELAY: ;EQUAL 100 IF HSR RUNNING | 
sTEST OF LINE cLock NTERRUPT FOR SS SECONDS THEN ST R_S SECONDS. 
tk! cth SttNe CL ERR ENE CLOCK "TIMER 

gt? top, Se STUS 
LKe: ? sRETURN TO MAINLINE 
LK3: Ts1B aLKCSR TEST FOR DONE 


;FALSE INTERRUPT 


B88 sssssssssssssss 
S33 Seasdsseoay 


POR Bm 
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002032 042777 000200 176240 


preAda 883535 BOESMS coe “XY 

‘Bboien pees 
7020 O02116 
176174 

oo0200 


oO 


Lat ae N INTE TER HERE 

a eaAoe, aaTIME RN ABZERMPTS ENTERoge 

LKe are ‘BRANCH IF TIME LESS THAN SS SECONDS 
#10 oastatus sLOWER PRIORITY 

#3600. , J8TIME ONE MINU TE UP 

LK1 SVES-REGET TIMER 

SLKCSR ‘NO=-SKIP ON FLAG TILL IT IS. 


#200, aLKCSR ;CLEARS THE FLAG 
LK4 FOUND FLAG GO INCREMENT COUNTER 


Oo~ww 
ze 
w 


ig 


Saisie aes 
ast beta ing 3 
CREE GEN 


TIME: 


;LINE PRINTER SHOULD RAISE PROCESSOR PRIORITY TO LEVEL OF LINE. PRINTER 
j INTERRUPT VECTOR IS 200 


000142 LPI: SOLPAT , CURPAT ;START OF LINE TO CURRENT 
eta LPe: CURPAT, , OLPDBR ;CURRENT PATTERN TO LINE PRINTER 


RT a ;RETURN TO MAIN LINE 
176132 LPINTR: 5 aLECSR TEST FOR FLAG 


000110 LPS CLINCT, #79 rest. FOR END re. 
: fe} THIS VALUE FOR 132 COLUMN PRINTER 
005267 000100 EP INT Selenite POSITION COUNT 
o00c70 CURPAT, #137 FOR NAXTHUM PATTERN 


; LP3_AND RESET 
CURPAT 3NO - NT TO 42 PATTERN — 
Le : Me LINE PRINTER 
#40, CURPAT ; PATTERN AND eR TO PRINTER 


CLINCT 
176054 M #12, JLPDBR 
SLPCSR 


000137 Souat, 0137 ;START OF LINE PATTERN 
SOLPAT : INCREMENT START OF LINE 


LP 
000004 : #40, SOLPAT . ;RESET START OF LINE 
BR LPI : PRINT 
CURPAT: 0 CURRENT CHARACTER BEING PRINTED 
SOLPAT: 0 ;START OF Lie CHARACTER 
CLINCT: 0 sPOSITION OF LINE 


*RK11 DISK TEST INTERRUPT LEVEL 5, 2000 WORD TRANSFERS 
RKSTART: JRKDAE sINITIALIZE DISK - DAR-DAE 
176036 RK1: MOV LEINtT 3 QRKEAR R C0 er 


176026 MOV TRANSFER 
MOVB coer ORKCSR RITE OR WRITE CHECK TO DISK 
RTI RETURN TO MAINLINE CODE 


PSS asisinen enn by 
SSIES WOBESSERS 


Sen ema 
eebeetsa) 


ane 


OOOO0K000000 
WONMUSWwrure-O 
5 
ne 
& 


5 
on 


Bg 


1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 


RESRETRRIERSS 
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1033 002322 032777 100200 176014 IRK: BIT #100200, JRKCSR s INTERRUPT VECTOR POINTS HERE 
ie Eee enti “a i : RK-11 ERROR FLAG UP OR READY NOT UP 
‘ ;RK- 8) 
is? Basaaq dparee : RKSTART 
1037 00226 032777 000037 17577 BIT #37, IRKDAE sDISK AT UPPER LIMIT? 
1038 344 O01 BNE RK :NO 
1039 002346 le 000031 175760 CMPB  - #31, IRKDAH 
1a? Bossee rk 002364 oie 4 SeAKFUNCTION tA ANGE. COMMAND 
ibis BpSSes 3 BR : RKSTART ‘RESTART NEW TRANSFER OF DISK 
104 002364 900000 RKFUNCTION: 0 sDISK COMMAND 
1 -RP11 DISK SERVICE ROUTINE 
1046 002366 112777 000001 176032 APSTART:MOVB #1, aRPCSR ; INITIALIZE DISK - DAR-DAE 
{bya ppesad tooges | 17eue® ITS ORCS 
1099 ot 777 ogness 176014 RP1: MOV LLIMIT, IRPBAR s INITIAL CORE ADDRESS 
i 1 18555 1 176004 MOV P| CT, JRPWC *LENGTH OF TR 
1051 O0e416 113777 O00432 176002 MOVB § @SRPFUNCTION, JRPCSR “WRITE OR WRITE CHECK TO DISK 
103¢ 24 RT "RETURN TO MAINLINE CODE 
l 26 100200 175772 IRP: 81 #100200, IRPCSR ; INTERRUPT VECTOR POINTS HERE 
ibee Ssase foaces me ii RP11 READY NOT UP OR ERROR ; 
thee Sesas dpaves HET ppstaRT ; 
1087 902442 lee??? 000312 175740 CHP #312, JRPCA sCYLINDER NO. 312, 624 FOR RPO 
1059 Bosdee rine 000432 SWAB § a8RPFUNCTION *CHANGE COMMAND 
1060 002456 000742 BR RPSTART RESTART NEW TRANSFER OF DISK 
1061 -RC11 gISK SERVICE ROUTINE 
1062 002460 012777 175634 RCSTART: MOV. #40, aRC s INITIALIZE DISK - DAR-DAE 
1063 002466 O16277 000170 175632 RCe: V LLIMIT, ARCBAR : BA 
1064 000474 012777 176040 175622 MOV #RCWOROCT. IRCWC *LENGTH OF TRANSFER 
1065 O0eS02 113777 O02550 175620 MOVB § @&RCFUNCTION, JRCCSR “WRITE OR WRITE CHECK TO DISK 
1066 1g p9900e RT *RETURN T’ MAIN INE C 
1 1 175612 100200 IRC: 8! JRCCSR, #100200 INTERRUPT VECTOR POINTS HERE 
1088 G602520 003002 _» Oar +6 a 
1063 O02eS522 104000 - HLT ;RC11 READY NOT UP OR ERROR IS UP 
} 002524 a. RCSTART 
1071 002526 175570 INC JRCDAR :TO INCREASE XFER RATE 
1072 O0eS3e Oe2777 002000 175562 - CMP #2000, JRCDAR *DISK AT UPPER LIMIT, 4000=2, 6000=3, 10009=4 
1073 002540 901352 BNE RC2 : 
1074 O0e542 500337 002550 SWAB § dBRCFUNCTION *CHANGE COMMAND 
1075 002546 BR RCSTART RESTART NEW TRANSFER OF DISK 
1076 002550 900000 RCEUNCTION: 0 *DISK COMMAND 
1078 O025S2 105277 175542 RESTART: INCB _ORFCSRH sINITIALIZE DISK - DAR-DAE 
ied poses Bi 6 777 bono7e 17eese RF1 Say UCTATT, SRFCAR CORE gas sohlsbeacne: 
i $ ; 
1081 ae 18555 regs {5eeg5 MOV SREWORDCT . IRFWC SP ENGTH OF TRANSFER 
1082 113777 002660 175510 MOVB § J#RFFUNCTION, JRFCSR WRITE OR WRITE CHECK TO DISK 
1083 002608 o00002 RTI "RETURN TO MAINLINE CODE 
1084 002610 037727 175502 100200 IRF: BIT JRFCSR, #100200 : INTERRUPT VECTOR POINTS HERE 
1085 002616 003002 BGT .+6 
108 602620 104000 HLT sRF11 READY NOT UP OR ERROR UP 
1087 O0eb2e2 000753 BR RFSTART 
1088 O0e624 062777 OO0040 175456 ADD #40, JRFDAR s INCREASE DUTY CYCLE 
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fe l2e777 000003 175446 CMPB &, . ORF DAE NO AT UPPER LIMIT? 7=2, 1724, 37=8 
O31 o3/78? i7s44e = 6174000 oP Seton, #174000 fs FAR ON DISK AS WE CAN GO 


002660 SWAB Sane TC TION 
TIeR RF STAR RES! AT ne TRANSFER OF DISK 


RFFUNC 0 
LLINIT: BEGIN EPIRST CORE AOORESS OF TRANSFER 
;0T11 DEC TAPE 


;READ DATA 
sWRITE DATA 


;READ BLOCK 

; FORWARD 

; INTERRUPT ENABLE AND UNIT - UNIT #1 
;D0 - THE FUNCTION 


& = B+ HB p= P= p> 


BS 


TCFIRST: sFI aT BLOCK TO BE SEARCHED FOR 
a ‘577. T BLOCK TO EA SEARCHED FOR 
TC 0 NT BLOCK 

TC NE: 0 OCK THAT. IS EXPECTED 


;G0 TO FORWARD END ZONE 

FENDZ: MOV #FENDZ, JTCIV ;END ZONE VECTOR SETUP 
TST aTCsT TEST FOR END ZONE 

FEND1 sAT_END ZONE? 

aTCcm 

eTCFl ie 


#104000, JTC 
TCFIRST, TOENPE 
- 3TCCM 


TURN ON NEXT BLOCK 
#190200, aTocn ERROR ON READ? 


TC ERROR SET - FORWARD READ BLOCK 
QTCDT, TCEXPE is HIS OUR BLOCK FOR SYNC 
TCF1A iN0 O-READ SOME MORE BLOCKS 
*WE PASSED THE BLOCK 
175404 TCF2: ' y sTC3,aTCIV s VECTOR FOR SEQUENTIAL READS 
fare RETURN AND TEST SEQENTIAL BLOCKS 


-FIND SEQUENTIAL BLOCK AT FOWARD DIRECTION 
175354 tCF3: Bit #100200, ,QTCCM ©; TEST ERROR AND READY 


HL ;FALSE INTERRUPT ON TC-11 
177636 MP aTCOT, TCLAST SHAVE WE TESTED ALL BLOCKS 
RENDZ sYES DRIVE UNIT IN Ha Sine TO START OVER 
NC TCEXPE ;NO-INCREMENT EXPECTED COUN 
177626 C A OTLOT, TCEXPE 1S CURRENT BLOCK CORRECT 


;FAILED IN FOWARD READ TO FIND NEXT BLOCK 


1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ESD SR RRO BR RRO Baw Noncun-oODS Von Eo 
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1145 BR TCWSK : THIS ROUTINE WRITES A BLOCK 
1146 175314 TCF4: INCB aTCCM ;SET DO 


XFEND2: BR FENDZ ; INDIRECT LINK 
irons ag? 8p: og END ne 2ONE VECTOR 
Rov TCLARt FcExme FREY. GPFon REVERSE SEARCH 
TST Puy END 20 ‘ 
Me Beet ies DO” ART TO TURN UNIT AROUND 


RTI 
RENDI: MOV #R+IE+RB+D0, aTcch NO INGTON 2 Lb EAB BLD BLOCK, REVERSE AND GO 
MOV #TCRI,aTCIV’ SET UP NEW INTERRUPT VECTOR 


RTI 
;sWRITE FORWARD ALL BLOCKS EXCEPT 0 
TCWBK: MOV 
MOV 


Ob bp a 
£ 
= | 


pf b= fo pe ps 


aia 


; INTERRUPT VECTOR FOR WRITE 
5 ONE BLOCK 
; THE WRITE ike ADDRESS 
WRITE THE BLOC 
j RETURN BLOCK IS WRITTEN 


TORE SEROUS 


aren ; ANY 
+4 


NATMoNEeS  FSnolh 


sinieaicisis 


#TCF3, aTCIV ;SEARCH BLOCK VECTOR 
175164 IE+RB, JTCCM READ BLOCK 
| BR *FIND THE NEXT BLOCK 
175154 : 8 #190200, aTCcN TEST FOR ERROR AND READY 


HLT ;DECTAPE ERROR ON READ BLOCK REVERSE 
177442 CMP STCOT, TCEXPE itp I C 


T THE REST 
TCRIA INQ = HAVE ae HE BLOCK 
RENDZ $90 19 END ZONE AND TRY AGAIN 


aTCcM 
;WE FOUND OUR FIRST BLOCK 
#TCR3,aTCIV ;SET UP INTERRUPT TO TEST ALL BLOCKS 


aTCcm 
AIT FOR NEXT BLOCK TO INTERRUPT 


SEQUENTIAL BLOCK IN REVERSE paneer iON 
: AY 1 ou aTCCM  ;TEST FOR READ AND ERROR 


;ERROR READING SEQUENTIAL BLOCK IN REVERSE 


cS f 


BBB VRR LOH Bsa ou Zan Ge 


1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


O— b= += bb b= bBo be ph bh 9 ps po pp ep 


ve) 
— 





Z 


| 
~s 
BIFRLSS a2 


et ee ee ee ee oe 


BeBe 


fur 
RE 


oS 


SoM NOU cro 


bb bh B= 9 = b= = b&b & + BH = = = P— H-> 0 9 8 = > ~~ & = p 9 p= P= fp 
— b— 0 b= 6 b= b— bb he 


tururururururururururu 


leel 


27(732) 14-SEP-76 10:54 PAGE 23 


177364 


026777 
BIS ra 
7767 175062 
1B4066 


175074 


177354 


TCR4: 


tCREK: 


TCRB1: 


tc 
TCRBUF : 


MOVB 
BR 


N=l 
- REPT 


K0e 


TCFIRST,OTCDT  ;DI1D WE DO ALL THE BLOCKS 
fae eel att AgeeT™” 


ort Tere ;TEST SEQUENTAIL BLOCK IN REVERSE 


;TEST SEQUENTIAL READ BLOCK IN REVERSE FAILED 
; THIS ROUTINE READ A BLOCK 


TCRBK 
aTccm 
{TETS TRY A NEW BLOCK 


READ — ALL_BLOCK EXCEPT BLOCK 1101 


TCR! JTCIV  ;SET UP INTERRUPT VECTOR 
400, ATCWC "READ ONE BLOCK 
STCRBOF JTCBA WHERE BUFFER IS 
aT shD+00, JTCCM READ THE BLOCK 
: CHECK _ORTA BUFFER 
EXIT RETURN WHEN BLOCK IS READ 
argon : ERRORS 


sDECTAPE_ERROR 
#TCR3, ITCIV ; NEW VECTOR FOR BLOCK SEARCH 
sIEARS, JTCCM :READ BLOCK FUNCTION 

"RETURN TO BLOCK SEARCH 


jTHIS WRITE BUFFER LOOK THE SAME FORWARD OR REVERSE 


100 
;DECTAPE READ/WRITE BUFFER 


;DECTAPE READ/WRITE BUFFER 
;DECTAPE READ/WRITE BUFFER 
;DECTAPE READ/WRITE BUFFER 
;DECTAPE READ/WRITE BUFFER 
;DECTAPE READ/WRITE BUFFER 
;DECTAPE READ/WRITE BUFFER 
;DECTAPE READ/WRITE BUFFER 


;DECTAPE READ/WRITE BUFFER 


LOe 
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N=N+1 
N ;DECTAPE READ/WRITE BUFFER 


use & 


-N 
N=N¢+1 
N ;DECTAPE READ/WRITE BUFFER 


-N 
N=N+1 
N 


;DECTAPE READ/WRITE BUFFER 
;DECTAPE READ/WRITE BUFFER 
;DECTAPE READ/WRITE BUFFER 
;DECTAPE READ/WRITE BUFFER 


;DECTAPE READ/WRITE BUFFER 


<b + bb ~ & = b= b= b= b= Hb § = P= 8 = pp = pe 


Seat atte can ato to ate 


;DECTAPE READ/WRITE BUFFER 
;DECTAPE READ/WRITE BUFFER 
;DECTAPE READ/WRITE BUFFER 
;DECTAPE READ/WRITE BUFFER 
;DECTAPE READ/WRITE SUFFER 
;DECTAPE READ/WRITE BUFFER 
;DECTAPE READ/WRITE BUFFER 
;DECTAPE REAO/WRITE BUFFER 
;DECTAPE READ/WRITE BUFFER 
;DECTAPE READ/WRITE BUFFER 
;DECTAPE READ/WRITE BUFFER 


;DECTAPE READ/WRITE BUFFER 





M02 


AE 
Rz 
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003570 -N 
_— 


Sie 


N ;DECTAPE READ/WRITE BUFFER 
=N+] 
N 


witb 


;DECTAPE READ/WRITE BUFFER 


-N 
N=N¢+1 
N ;DECTAPE READ/WRITE BUFFER 


-N 
' NeNel 
N. ;DECTAPE READ/WRITE BUFFER 
N=N+1 
N ;DECTAPE . READ/WRITE BUFFER 


DWIWWWWIWIWIW WIG 
eee ed ee ee ee 


—OVDON@U CWO 


-N 
N=N+1 
N ;DECTAPE READ/WRITE BUFFER 


oH 


-N 
N=N+1 
N ;DECTAPE READ/WRITE BUFFER 


_=N 
N=N+1 
N 


S 


;DECTAPE READ/WRITE BUFFER 


Ww 
AY) 
~sJ 


-N 
=N+] 
N 


S38 


;DECTAPE READ/WRITE BUFFER 


a 


-N 
N=N+1 
N ;DECTAPE READ/WRITE BUFFER 


Ses 
We 


3 


-N 
4 N=N+1 
003642 - N ;DECTAPE READ/WRITE BUFFER 
003644 1 -N 
0000' N=N+1 
OO3646. | N ;DECTAPE READ/WRITE BUFFER 
003650 177731 -N 
000050 N=N+1 
003652 N ;DECTAPE READ/WRITE BUFFER 
003654 1777 ~ 


003656 000051 . N ;DECTAPE READ/WRITE BUFFER 
003660 -N . 
i 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
132 
1 
1 
7 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
re Ue 
1 
1 
1 
1 
1 


area 


003662 ;DECTAPE READ/WRITE BUFFER 
caante None! 
003666 N- sDECTAPE READ/WRITE BUFFER 
aan a 

003672 N sDECTAPE READ/WRITE BUFFER 
win Rene . 
003676 N- sDECTAPE READ/WRITE BUFFER 
003700 oN a wr 
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003702 sDECTAPE READ/WRITE BUFFER 
003704 
sDECTAPE READ/WRITE BUFFER 


00 
003712 N ;DECTAPE READ/WRITE BUFFER 
003714 


003716 N ;DECTAPE READ/WRITE BUFFER 
003720 


000062 2 
arcs N ;DECTAPE READ/WRITE BUFFER 


000063 
003726 N ;DECTAPE READ/WRITE BUFFER 
003729 


003732 N ;DECTAPE READ/WRITE BUFFER 
003734 


003736 ;DECTAPE READ/WRITE BUFFER 
003740 

OOODES 
003742 ;DECTAPE READ/WRITE BUFFER 
003744 
003746 N ;DECTAPE READ/WRITE BUFFER 
003750 


nets 7 N ;DECTAPE READ/WRITE BUFFER 


000071 
003756 N ;DECTAPE READ/WRITE BUFFER 
003760 


003762 N _ sDECTAPE READ/WRITE BUFFER 
003764 1777 


003766 Sui , oe sDECTAPE READ/WRITE BUFFER 
00377) 17; 


003772 ;DECTAPE READ/WRITE BUFFER 
003774 
003776 ;DECTAPE READ/WRITE BUFFER 
004000 
004002 ;DECTAPE READ/WRITE BUFFER 
004004 
000077 ; 
004006 N ;DECTAPE READ/WRITE BUFFER 
004010 


000100 
004012 N ;DECTAPE READ/WRITE BUFFER 
004014 
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DZOKBF.P11 
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147 
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0+ b~2 b= 9-2 0-2 0-2 b= Fe 
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MACYLL 271732) 





14-SEP-"& 10:54 PAGE 28 


-N 

SDEC TAPE READ/WRITE BUFFER 
— 
sDEC TAPE READ/WRITE BUFFER 
-N 
N et :DEC TAPE READ/WRITE BUFFER 
N SDEC TAPE READ/WRITE BUFFER 





















DEC TAPE REAO/MRITE BUFFER 
“DEC TAPE READ/WRITE BUFFER 
;DEC TAPE READ/WRITE BUFFER 
;DEC TAPE READ/WRITE BUFFER 
:DEC TAPE READ/WRITE BUFFER 


;DEC TAPE READ/WRITE BUFFER 


:DEC TAPE READ/WRITE BUFFER 


“ ;DEC TAPE READ/WRITE BUFFER 
“we ;DEC TAPE READ/URITE BUFFER 
we ;DEC TAPE REAO/WRITE BUFFER 
Ke ;DEC TAPE READ/WRITE BUFFER 
me ;DEC TAPE READ/WRITE BUFFER 
hes ;DEC TAPE READ/WRITE BUFFER 
“He SDEC TAPE READ/WRITE SUFFER 
* ;DEC TAPE READ-WRITE BUFFER 
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See Ss 
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Bee 


ar 
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BRA a 
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aint 
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ty 
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177743 
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;DEC TAPE READ/WRITE BUFFER 
;DEC TAPE READ/WRITE SUFFER 
;DEC TAPE READ/WRITE SUFFER 
;DEC TAPE READ/WRITE SUFFER 
;DEC TAPE READ/WRITE BUFFER 
;DEC TAPE READ/WRITE BUFFER 
;DEC TAPE READ/WRITE SUFFER 
;DEC TAPE READ/WRITE BUFFER 
;DEC TAPE READ/WRITE BUFFER 
;DEC TAPE READ/WRITE SUFFER 
DEC TAPE READ/WRITE BUFFER 
DEC TAPE SEAN WRITE BUFFER 
;DEC TAPE READ/WRITE BUFFER 
DEC TAPE READ/WRITE BUFFER 
;DEC TAPE READ/WRITE SUFFER 
;DEC TAPE READ/WRITE SUFFER 
;DEC TAPE READ/WRITE BUFFER 
DEC TAPE READ/WRITE BUFFER 


;DEC TAPE READ/WRITE BUFFER 
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Re SSB LI oo Ae 


Rr 
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pousue Sooree "whe 
BoNas6 | O000i3 N 
BI bs ie 
il N 
DONa5B cg -" 
paso NeNe! 
o043%2 177771 =N 
cone 
N=N-] 
BoS38 Gos00e , 
904372 177773 a 
904374 


012020 BEGIN: wey 


018440 V 
; TEST — 


MO 
125252 CMP 


Ss 


38 
Bs 
zm 


Bets 
oe 
one 


oO 
bee 


#4000, J8ICOUNT 
INSTRUCTION INDEXED 





E03 





;DEC TAPE READ/WRITE BUFFER 
;DEC TAPE READ/WRITE SUFFER 
;CEC TAPE READ/WRITE SUFFER 
;DEC TAPE READ/WRITE BUFFER 
;DEC TAPE READ/WRITE BUFFER 
;DEC TAPE READ/WRITE BUFFER 
;DEC TAPE READ/WRITE BUFFER 
;DEC TAPE READ/WRITE SUFFER 
;DEC TAPE READ/WRITE BUFFER 


;DEC TAPE READ/WRITE BUFFER 
;FOR SCOPING 
; ITERATION COUNT 


;MINUS 10 TO REG O 
;(A INDEX BY MINUS 10) TO #l2eSe5e 


;COMPARE WITH INDEX FAILED 


#BEGIN, RETURN 


#-10,: 
A(O), #les2S2 
+4 


104400 SCOPE 
022760 125252 016666 CMP #125252, A(0) 3A INDEXED 
001401 BEQ +4 
104000 sCOMPARE FAILED DESTINATION INDEX 
rouune SCOPE 
;SET “ISR” FOR DISKS AND KWLIL TO CURRENT BANK 
010700 MOV “4? 40 ;CURRENT BANK 
prg7oy 00 Bic §=- 8007777, x0 ;LEAVE ONLY BANK BITS 
022 ADD #LK3, 40 ?ADD IN CLOCK ENTRANCE 
1 000100 MOV sLINE CLOCK, KWLIL 
7B Beet 
nae RF11 ISR 
#007777, x0 : 
sIRC, “0 
%0, 06210 :RCL1, ISR 








DZOQKGF . 


SESRREBS 
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RS Bese 
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BR Sone 
Ss 7ac88 
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C1bEE5 


016666 


O16666 


016666 


016666 


O16666 


016666 


016666 
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FO3 


#052525 ,A(0) 
+4 

ACO), ACO) 
.>4 

#-10,%0 
A‘O); ACD) 
44 


a+4 %1 
ACOs ACL) 
+4 

AC 1), ACO) 
+4 


#-4,%40 
#410, %1 
A(O), ACL) 
+4 





sRK11 ISR 
;RP11 ISR 
;CHANGE DISK NPR BUFFER 


;CHANGE STACK TO EXISTING BANK 
; INDEX 


:COMPARE FAILED 
;REGISTER O CONTAINS CCOO1C 

;COMPARE FAILED 
;REGISTER 0 CONTAINS 000010 


;COMPARE FAILED 


;COMPARE FAILED 


sREGISTER 0 CONTAINS 177770 (-10) 


;COMPARE FAILED 


;COMPARE FAILED 


;CMP FAILED 
;REGISTER O CONTAINS 177774 (-4) 
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;REGISTER 1 CONTAINS 000010 
016666 O16666 ee wr see 


SCOMPARE FAILED 


8389 
NE 


SCOPE 
- 3TEST MOVE ODD BYTE TO REGISTER . 
PROBLEM an oe ~MAR-72 


MO C+3,%0 
% 
2 2 


SCOPE 
; TEST MOVE INSTRUCTION FOR INDEX 
#-10,%0 
A(O),T 
TEMP, #125252 
ae 


SSBIRREORS SSE ae 


;COMPARE FAILED 


0-- b-- & = = & = = b— 6 0 &~ 9 0 6 b= 9 pp 9 po pe 


NNNNNS 
ed oi ek mek amdcend 


CUCU 


#+10,%0 
ACO); TEMP 
TEN, #052525 


;MOV FAILED 


Qo 
ba 


#-10,%0 
#125252, TEMP(O) 
aac, #leSebe 


00S02e 
005030 
005036 
postN2 
Oo80s0 
OOS0S6 
095056 
005970 
00S07e 
OO8108 


Sh 


P+ bb hh hh he 
“I 


;MOV FAILED 


9 
ocr 
~_ 


sogpese TEMP (0) 
SaTENP+10, #052525 


;MOV FAILED 


bb bb he ee ed ee 


e2FE2R  EGSVRES 


; TEST BIC peTRT ioe FOR INDEXING 
011534 MOV s- 10-50 TEMP 


V #- 
011522 ACO}, "TEMP 
0SeSeS TEMP, , 8052525 


727 
1728 
723 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
a 
73 


Rineronaten | ERononutann pronet 


Sel ek ee ee ee ne 


;BIC FAILED 


bs b+ -2 bs D> b= f= bsp 2 hb 8 pe hae 


eS § 


011500 


#- 
#1 
011466 AC 
leSeSe CMP 1 


1, TEMP 
10/0 
03. TEMP 
MP’ eleSes2 





HO3 


8: 
gz 
Bz 
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00S23e 104000 HL ;BIC FAILED 
00S234 104400 


016720 1s! #-1, J8TEMP+10 
% 


V t 4 
016710 #125252, TEMP(0) 
052525 CMP aaTENP+10, ases2s 


Bases 


;BIC FAILED 


Ob 6 b= bb b= 9 p— — 


3 


#-10,%0 
#-1, TEMP-10 
#052525, TEMP-10 
TENP-10, aleSeSe 
; BIC FAILED 
SCOPE 
;TEST SUBTRACT INSTRUCTION FOR INDEXING 
MOV #125252, TEMP 
MOV #-10,%0 
SUB ACO); TEMP 
BEQ +4 
:SUB FAILED 
016710 #125252, 8TENP 
016720 SUB B  TEAP+10(0) 
‘ :SUB FAILED 


052505, TEMP 
ACO}, TEMP 
+4 
;SUB FAILED 
016710 MOV ©: #052525, aeTEMP 


% % 
016700 SUB R#10,C¢0) 
; SUB FAILED 


; TEST UNARYS INDEXED 
016710 MOV 


;CLR FAILED 


1762 
1763 
1764 
12ee 
176 
1768 
1769 
1770 
1771 
177e 
1773 
1774 
fae} 
1779 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1730 
1791 
1732 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
Ho 
i608 
1804 
1805 
1806 
1807 
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fe 


012737 016710 #-1, J8TEMP 
01 0 MO +19, x0 


(9) 
ye 
104000 ; CLR FAILED 


3 


00SS06 
005514 
S20 


0 0 9 po 
NOU CWO 


016710 #-1, aaTEMP 
a 19,10 


frome 


gay Hees 


:COM FAILED 


a 
aS é 


016710 #-1, J8TEMP 
#10,%0 


z 
E 


C(0 
aeTEMP 
+4 


cs 


és 


;COM FAILED 


016710 #-1, aaTEMP 
#-10,%0 
010) 
aeTEMP 
+4 


oe 


8 
5 


; INC FAILED 


u 


016710: #-1, deTEMP 
#+10, 40 
€(0) 
aeTEMP 
+4 


ss 


— 
s 
_— 


;INC FAILED 


i 


016710 #1, NTEMP 
#-10,%0 
0(0) 


aeTEMP 
+4 


20 
rata 
as 


;DEC FAILED 


as 


016710 #1, J8TEMP 
MOV #10,%0 


cio) 
aeTEMP 
+4 


BURA COR AG Sa Gen EGR SOR PERE SON 


mR 
vs 
bo 
eS | 
Oo 
ool 


;DEC FAILED 


as 3 


1 
) 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


016710 #1, QUTEMP 


co 
& 
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1864 #-10,%0 


) 
016710 MP taal 


82 
zd 


177770 
016720 
17 


EN 


;NEG FAILED 


Ss = 
8 
S$ 


016710 #1, a8TEMP 
+10, %0 


016710 #-1, J8TEMP 
BE +4 


8 
~ 
£ 
oOo 
-_— 


;NEG FAILED 


és 


RERER BRERA a 43 
= 


016710 #-1, JNTEMP 
MOV #-10, 40 


010) 
asTEMP 
+4 


: 


;ADC FAILED 


016710 MOV #-1 
+10 


C(Q) 
aeTEMP 
+4 


aeTEMP 
40 


bs 


au 


2 
8 


;ADC FAILED 


= 


016710 MOV Ti 


016720 SBC 0(0) 
016710 aeTEMP 
BE +4 


-_ 
<= 


;S8C FAILED 


ee ee 


000001 
10 


6700 SBC c(0) 
6710 osTenp 


Ky 
S 


016710 #1, 28TEMP 
#+10,%0 


Piiiiinsinse ih paar bs kt btn tal 


oe 
2NES FLHFHSSR BPRBES ER 
os 


01 
01 


ox 
S853 


;SBC FAILED 


ge 
3588 


; TEST JMP INDIRECT 
MOV 47 40 


& 6,%0 


1 
1 
1 
1 
1 
1 
| 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


WOwWwWDNOWwWWwWw 
so 0 ot 
WONT CWO 


SBge 
S=s8 


;JMP FAILED 
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s 


;MOV REGISTOR FAILED 


0 
GJ) 
-_— 


0 b= bb hh ee 
SRRRRREORS 
Qjrue- 


vi 


SCOPE 
;TEST INDIRECT ADDRESSING 
;TEST COMPARE INSTRUCTION 

leS2S2 CMP d8B, #125252 
iy +4 
HL 

SCOPE 

CMP #125252, a#B 

BEQ +4 


i 


;CMP FAILED 


HLT ;CMP FAILED 
SCOPE 

CMP a#8, d88 

BEQ +4 


HLT : :CMP FAILED 
SCOPE 


TEST OVE INSTRUCTIONS 
#8, 40 
CMP #126252, “0 


1 

i 
1837 
1938 
1939 
1940 
13d3 
194 
1942 
1944 
igi 
134? 
1948 
1850 
132] 
1952 
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et Ss} 
a 


001401 BEQ +4 
1 HLT 
SCOPE 
Afeeee BLESIB toe «= Saesarehe 
SEQ +4 
HLT 
. SCOPE 
O166SE 016700 MOV a#B,a 
016656 016700 CMP aeB a 
BEQ +4 
HLT ;MOV FAILED 
SCOPE ; 
;TEST BIC INSTRUCTION INDIRECT 
MOV #-1,%0 
as8 
%0 
+4 


sMOV FAILED 


;MOV FAILED 


aC 
aC 


%0 
koSeses 
;BIC FAILED 
016719 #-1, a8TEMP 
016710 #125252, a¥TEMP 
016710 MP w0SeSe5, da TEMP 
: ;BIC FAILED 


BREE IS otal sue e rine tie ena ane 


016700 
016700 


3 


;BIC FAILED 


;TEST SUBTRACT INSTRUCTION 
Noy” si2sese, 20 


SUB 4B, % 
MP %0, #0 
+4 

;SUB FAILED 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
bf 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


PRLS SE TON 


oS 


#125252, J¥TEMP 
B, seTEnP 


B2 


;SUB FAILED 


: 


#125252, TEMP 
a#8, TEMP 

TEMP 
+4 


etoeciee 


;SUB FAILED * 
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104400 


2 


SCOPE 
; TEST UNARYS sae og | 


012737 016710 MOV 1, daTEMP 
37 suit i 
— 


; TST FAILED 


SSSSS 33033 
DONT CUO 


016710 MO #125252, a8TEMP 
016710 #052525, aeTEMP 
7 a ae 


hs 


;COM FAILED 


aaTEMP 
aeTEMP 

016710 CMP #1, O#TENP 
; sINC FAILED 


aaTEMP 
TEMP+2 
#TEMP, #-1 
+4 
;DEC FAILED 
016710 MOV #1, J8TEMP 
aetEMP 
016710 CMP a1, daTENP 


sNEG FAILED 


;TEST INDIRECT tant SN es WITH INDEXING 
TEST COMPARE INSTR Ea TON 
7727 CMP @B+e, #1eSeSe 
001401 : 
104000 T ;CMP FAILED 
104400 


leSeS2 007670 CMP #125252, aB+2 
001 a1 BEQ +4 
104000 HLT ;CMP FAILED 
104400 SCOPE 
027777 007654 CMP @B+2, IB+2 
001401 BEQ +4 
104000 HLT ..  §3CMP FAILED 
104400 ' » SCOPE 


; TEST MOVE INSTRUCTIONS 
017700 007642 MOV dB+e, ~0 
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007916 
00702 


8 
“ 


at) 
Oo 
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Ba8 Sssss 


2098 
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Tervrorurerursrulurupuruforurforurururururun 
bh bh be eh ht he (0 
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NO3. 


125252 CMP #125252, “0 
BEQ +4 
HLT sMOV FAILED 
SCOPE 
125252 007654 MOV #125252, JTEMO+2 
016656 016710 CHP J88, JUTEMP 
HLT :MOV FAILED 
SCOPE ; 
007602 007622 MOV dB+2, IC+2 
O166S6 016700 CMP eB, JHC 
BEQ +4 
HLT 
SCOPE 
;TEST BIC INSTRUCTION INDIRECT WITH INDEXING 
177777 MOV #-1,%0 
007554 BIC ae+2, %0 
052525 CMP 40, #52525 
BEQ +4 
HLT :BIC FAILED 
SCOPE 
77777 016710 MOV #-1, DHTEMP 
125252 007560 BIC #125252, JTEMP+2 
052525 016710 CMP #52525, J&TEMP 
BEQ +4 
HLT ;BIC FAILED 
SCOPE 
177777 016700 MOV #-1, 08C 
007500 007520 BIC aBt+e, ac+e 
007510 016700 CMP A+10; aHC 
BEQ +4 
HLT ;BIC FAILED 
SCOPE 
125252 MOV #125252, “0 
007452 SUB aB+2, 40 
ooo000 CMP %0, #0 
BEQ +4 
HLT SUB FAILED 
SCOPE ; 
125252 016710 MOV #125252, de TEMP 
007424 007456 SUB B, aTEMP+2 
BEQ 44 
HLT ;SUB FAILED 
. SCOPE 
125252 016710 MOV #125252, J#TEMP 
007404 007434 SUB aB+2, JTEMP+2 
016710 qs! oN TEAP 


14-SEP-75 


ru 
o- 
furu 
7 


SBR RR ZOHO Ooo 


pom om 5 
ute 


Mrorrurorrorrerurorfonorurororurulrururnlrurururofrrurururnrurururufrufurorururfrururufrurorurururorururururute 
0 b-2 0 0 0 0-2 bbb B02 0 0 0s 8 2 0-2 Pb 2 2 2 2 F 0 b2 b 0 0-2 00 = 2 6-2 0 0 = 2 2 2 bo b= 2 Bo = B= 2 bo ho bb 0 he fo 


Sa PIN SSH GREG Gow eu e coher bdo rE 





916710 


016710 
016710 


016710 


177777 


016710. 


016710 
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BO4 


HLT 
SCOPE 


; TEST a yore) WITH INDEXING 


L " 
ADD aB+2, “0 
CMP #125252, “0 
BEQ +4 
LT 
SCOPE 
CLR DaTEMP - 
ADD 8125252, JTEMP+2 
CMP #125252, Je TEMP 
BEQ +4 
HLT 
SCOPE 
MOV #125252, JsTEMP 
ADD DAH, JTEMP+2 
CMP DSTEMP, 8-1 
BEQ +4 
HLT 
SCOPE 


MOV 8125252, J8TEMP 
aTEMP+e 


COM 

CMP #052525, asTEMP 
BEG +4 

HLT 

SCOPE 

CLR aeTEMP 

INC aTEMP+2 
CMP #1, a8TEMP 
SEQ 4 

SCOPE 

CLR aeTEMP 
DEC aTEMP+2 
CMP aeTEMP, #-1 
BEQ +4 

HLT 

SCOPE 


MOV #1, J8TEMP 
NEG aTEMP+2 
CMP 8-1, JTEMP 
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DZOKBF PLL 


- 
~ 


furururufrururu 
— 0 0-20 p= bh ope 


CBB SPRL Glo o.o0s—s 


turururururururufurururururofrofr 
NA 
ee 


BGA LOW 


Be pinek es 


FUPUrUrUrUrOrururuns 
O- 2 b= 6 6 & 2-2-2» 2 9-H 
—-OVOONMUEC INO 


SASS 
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104400 


000001 


00711 
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016710 © 


016710 


t2S252 


016666 


O16ES6 


097000 
006772 
006764 


016700 
016710 
OSeSe5 


BEO +4 
HLT s;NEG FAILED 
MOV s-1, d8TEMP 


ADC JTEMP+2 
TST oslere 
= 


ADC FAILED 


MOV #1,asTEMP 


SBC aTEMP+2 
TST ie 


;S8C FAILED 


; TEST OF COMBINED INDEXING AND INDIRECT 
CMP aacd),s12s2s2 , 
BE +4 ' 
HLT | ;CMP FAILED 


8-6, %0 
CMP e1eS252,98(0) 
: CMP FAILED 


MOV e-6,%0 

8+2°%1 

JAA), aACL) 

BE *4 

HL 

. SCOPE 

;TEST BIC INSTRUCTION 
MOV 8+6,%0 


;CMP FAILED 


V 8-1) TEMP 
BIC aad). TEMP 
CMP niesese, TEMP 


BEO 
HLT :BIC FAILED 
SCOPE 

MOV #-5,%0 

MOV #-1, aac 

BIC #125252, JTEMP(O) 


CMP aac, 8052525 
BE +4 
HiT —gBIC FAILED 








. MAIN. 

O2aKSF P11 
2233 007766 
2234 007774 
2235 019000 
Ae 
2239 010022 
ee40 010024 
S24) 
e242 910026 
2243 10034 
2244 010036 
2645 010040 
554? p1ooy2 
2248 O10046 
os ties 
2251 010060 
2252 
5585 10066 
2255 010074 
2256 010076 
2257 019100 
2258 
2259 010192 
2260 O10106 
e261 019114 
Gee ODI Ie 
263 010120 
2264 
2265 010122 
2266 010126 
2267 O101s4 
2268 010136 
2269 010140 
2270 
2271 910142 
2272 O10146 
2273 O1015¥ 
2274 O10i56 
2275 O10160 

276 

2277 910162 
2278 O1D166 
2278 910174 
2280 010176 
2281 010200 
2282 

2283 010202 
2284 010206 
2285 010212 
2286 010220 
2287 010202 
2288 010224 
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012737 
700 
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177777 
177772 
17777e 


oeeses 


oo0o00c0 


177770 
Oi6665 


177770 
0002 


016700 
B1e500 


000091 


o002Se2 


S2 O1b665 


000125 


016866 


016666 


016666 


016656 


SCO 





#-1,a8C 


a-6,%0 


a-6,%1 
surge” 


#-10,% 
A‘O), s0002S2 
+4 


#-10,%0 
#000252, A‘) 


#10,%0 
aco}, s00012s 
+4 


#10,%0 > 
#000125,A‘0) 
+4 


#+10,%0 
ACO) ;ACO) 
+4 


8-10, %0 
a+4.%1 
A‘OS,ACL) 
+4 


DO4 





;BIC FAILED 


;CMPB FAILED 
er aA INDEXED 


;sMINUS 10 TO REG O 

;(A INDEX BY MINUS 10) TO #125252 
;COMPARE WITH INDEX FAILED 

:FOR INDEX 

3A INDEXED 

sCMPS FAILED 

; INDEX 


;CMPB FAILED 


;CMPS FAILED 


;CMPB FAILED 


;CMPB FAILED 


;CMPB FAILED 
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$353 010226 60 O16666 O1S666 A(1), ACO) 
2291 8 +4 
;CMPB FAILED 


0+ b- 


Soe Hae Bg 


a-4.%60 
#+10,%1 
AO) ACL) 
+4 
sCr~., FAILED 
8-4, 40 
#10 *h 
MP ACIS ACO) 
BEQ +4 
T sCMPB FAILED 


ONOO0000 O200000 G00 


b= B- & 2p — 6-H b+ - 8 po PH HO 


SCOPE 
;TEST MOVE INSTRUCTION FOR INDEX 


Aca); TEMP 
4k *unes2 


O3le 


;MOVB FAILED 
;MOVB FAILED 
;MOVB FAILED 


Sr SEDs 


sMOVB FAILED 


1 
1 
1 
1 
i 
1 
1 
1 
! 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
| 
1 
1 
1 


4) 
: 
| 
: 


; TEST Bie JNSTRUCTION 4" INDEXING 
Rs Ib, Dep 
TENP, #177525 
At ;BICB FAILED 


Sion, Zgeed? Soease HRRRES GRE 


OOO0o00O0O 
Oo bo 


22 
Tw 
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006204 MOV #1, TEMP 


6666 17 a alos y MP 
55 pS} § TENP, wnrese 
; :BICB FAILED 


77777 «(016720 8-1, J8TEMP+10 
MOV #10°% 
016710 #125252, TEMP‘ 0) 
062525 osTeNP+10, wees 
t ;BICB FAILED 


#-10,%0 
ei RL 
125252 TEN 10) #1252 


poue SeeKsee oo 


10 
Se 


<= 
o£ 


;BICB FHILED 


Stetetatetata, G2 b= b+ b-2 b> ps Dee bs tp 


OoO00000 28000000 OO 


; TEST UNARYS INDEXED 
MOV #-1 JeTEMP 
MOV #-10,%0 


ae Tere 
+4 


77777 ~=3(016710 


bee 


ini 
oO 


;CLRB FAILED 


Ft 


77777 016710 8-1, Je TEMP 
MOV 8-10,%0 


010) 
177400 CMP osTENP, #177400 
: sCLRB FAILED 


016710 MOV o-},daTEMP 
MOV #-7,%0 


00 
000377 ONTEMP , #000377 
: CLR FAILED 


016710 #-1 oaTeMp 


177777 4 
06060 B1e700 tra ec)" 
+ 


016710 


#28 GHORSRS ROSSER B 


01 
01 
01 
01 
01 
O01 
Oi 
a 

1 
O01 
ot 

1 
Oi 
01 

1 

1 

1 
01 
Oi 
ft 

1 
01 
ot 

| 
01 
01 
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HLT ;CLRB FAILED 
SCOPE 
016710 MOV —s #1 ae TEMP 
#-10, 20 
— 0¢0) 
JaTEMP 
+4 
COMB FAILED 


~ 


— pp 
Coe £O 


016710 MOV #-1,d8TEMP 
#10,%0 
Site 
sTEMP 
+4 
;COMB FAILED 


0 0 6 po 
OO VPUI£ UIT 


016710 #-1, aaTEMP 
#-10,%0 
0(0) 


aaTEMP 
+4 


tw 
oa 


i a at ae at to hoe ot 
PORES oe 


;INCB FAILED 


INIT DAIRSORE 


OeTEMP, #177400 
+4 


B= FB bh 2 bf bo BP 2 Ho BB bh b= > 


;INCB FAILED 


R2R 


re 
Deal a ] 


016710 #-1, 28TEMP 
MOV #+19,%0 


c(O)° 
aaTEMP 
+4 
;INCB FAILED 
016710 #1, d8TEMP 
aeTEMP 
+4 


——O00 eH 
% 
8 


85 


;DECB FAILED 


b- e— $2 bb 2 bh be Be Cl See ee See ee Ree aad a or oe 
b= 


CS FEREWES KL 


aeTEMP 
ya 


EMP 


81 


016710 81 
a MOV i 
+ 
- 


4 


rook 


;DECB FAILED 


016710 #1, J8TEMP 
8-10, “0 
(0) 


; 
01 
; 
01 
01 
a 
1 
: 
: 
01 
O01 
ot 
1 
1 
01 
: 
3 
O01 
: 
: 
Ol 
01 
01 
Ol 
Ol 
01 
Ol 
: 
3 
O01 
01 
ot 
1 
| 
: 
O01 
O01 
01 


Reo wr 





HOY 
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fu 
e 


27? 016710 9000377 gf al i 
+ 
sNEGB FAILED 


eo = b+ pw 


See Bae 


018710 #1, aaTEMP 
a+10, 0 


Cio) 
000377 SNTENP, £377 
‘ ;NEGB FAILED 


S ReSSRe 


016710 #-1, deTEMP 
#-10,%0 


GW 
hae fae 
or 


D(O) 
177400 CMP DETENP, #177400 
; ;ADCB FAILED 


016710 MO #-1, O8TEMP 
#+10,%0 


C(O) 
177400 | ONTENP, #177400 
. ;ADCB FAILED 


016710 7! p etal 


; D(0) 
016710 CMP a » oad 


8 
ae 


;SBCB FAILED 


z2 


016710 MO #1, ¥TEMP 
000010 #+10,%0 


016700 cco) 
016710 T ester 


22 
. 
FBS 


: 


£N 
=8 


— 


;S8CB FAILED 


B 


;TEST INDIRECT ADDRESSING 
STEST COMPARE INSTRUCTION 
CPB gue, 000252 


a) ;CMPB FAILED 
OPE 


320 
324 
= 
340 
346 
3$e 
3$4 
4 
374 
402 
406 
410 
414 
422 
4e4 
426 
430 
436 
44e 
444 
450 
454 
456 
460 
462 


and 
SEN 





Z 
=z 


8 
§ 


DOIN UCU) 
ed a ee 
bbe be be 
uw 
or 


RRA AAT 


g 


Ooo0o00 A000 


= 


HUM SS cag Tote So BURRS D RE aU 


Hath 
Ue 


2 


F 


o000 


—— = pe 
et eee ere 
uw 
_ 
rm 


seem eS 


011542 
011546 
0115Se 
Bites 
11556 
ies 
aLera 
011576 
011600 
lt 
Otieio 
01161 
O11 
0116ee 
011624 
011632 
011636 
011644 
Bt 1686 
11650 
011652 
Teter 
11664 
yet eed 
11674 
011676 
011700 
011706 
01i71e 
ot i7e8 
117ee 
011724 
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Sue DoS 
soy feck 
Seq B85s8 
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016657 900252 


016656 


016656 


016656 
000252 


016710 
016710 


a8B+1, #252 
+4 


#leSeS2, aa 
+4 


; TEST MOVE INSTRUCTIONS 
MOVE 8B,’ 


x0 
#000252, %9 
+4 


#125252, JeTEMP 
aaTEMP 


SCOPE 
; TEST UNARYS DOINECT 
MOV asTEMP 


SuTEMP, #177400 
+4 


#125252, J#TEMP 
alae, aeTEMP 


#125252, aeTEMP 
DaTEMP+| 
wos2ese, aaTEMP 


;CMPB FAILED 


;CMPB FAILED 


;CMPB FAILED 


;MOVB FRILED 


;MOVB FAILED 


;MOVB FAILED 


;CLRB FAILED 


;COMB FAILED 


;COMB FAILED 
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2569 005037 CLR aeTEMP 
2570 OeTEMP+1 
016710 MP #100, aaTEMP 


;INCB FAILED 
asTEMP 
aTEMP+2 
get , #377 

;DECB FAILED 


aaTEMP 
016711 #1, J8TEMP+1 

aatEMP+1 
016710 CMP #177400, 08 TEMP 


i 


;NEGB FAILED 


; TEST INDIRECT ela Bw WITH INDEXING 
; TEST COMPARE INSTRUCTION 

CMPB a 2, #125252 

BEQ +4 

HLT 

SCOPE 

CMPB ss #125252, dB+2 

BEQ +4 


sCMPB FAILED 


HLT ;CMP8 FAILED 
SCOPE 
CMPB 8+2, JB+2 
BE +4 
;CMPB FAILED 


Sore WORE Saye 


2 
a 
2574 
2575 
a 

78 
Se 
2581 
e582 
2583 
Es 
Ss 
oe tise 
230 
es9i 
es 
eS 
eS 
Ss 
2598 
2s99 
2600 
2601 
e60e 
2603 
Ee 
2606 
2607 
es 


SCOPE 
; TEST ON Pes, 
Cc A #12 <0 
;MOVB FAILED 


— 


004572 MOVE #125252, JTEMP+2 
016710 cn B deTENP : 


Ce ee be bs 


te 


;MOVB FAILED 


apa a a a at tt 
WONWU CWO 


aB+2,aC+2 
B, aac 
44 


S 


— Sos 
— 

be 

Sse 

i 


= 
BBEs 


;MOVB FAILED 


eh hh pe 


OD0000 280000 O0000 2000 2000 2000 


QHBS2 RERBS SREB 


furvruorury frururoror = fruroru 
= 
8 
oscn 


BERES 
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-MAIN, MACYI1 27(732) i4-SEP-7& 10:54 PAGE 49 
OZOKBF.P11 


; TEST BIC roy la WITH INDEXING 


BS "B Sriatbos 


;BICB FAILED 


016710 MO 8-1, I8TEMP 
004476 tiseges JTEMP+2 
016710 MP wSe5e5, deTENP 


;BICB FAILED 


77777 (016700 
004436 sata’ aK 
016700 MP R+10, aac 


;8ICB FAILED 


SCOPE 
s TEST UNARYS INDIRECT WITH INDEXING 
177777 016710 MOV #-1, a8 TEMP 

CLRB 3s ATEMP+2 


004420 
016710 .. TSTB @eTEMP 
BE +4 
;CLRB FAILED 


aed 016710 V #12SeSe, J#TEMP 
37 bezeee 016710 secs, OeTEMP 


;COMB FAILED 
016710 
004350 


77 E 
000001 016710 0) OeTEHP 


1 
1 


sINCB FAILED 
005037 016710 
004324 JTEMP+2 
27 016710 1: MP ONTENP, #1 
. :DECB FAILED 
900001 016710 #1 QaTEMP 
4276 aTEMP+ 
177777 016710 CNPB 0-1, ONTENP 


0 
0 
0 
0 
5 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
Q 
0 
0 
0 


;NEGB FAILED 
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02 Pll 


2681 012426 104400 SCOPE 
2683 oleae 012737. 177777 016710 a #-1, J8TEMP 
124 424 Bis aTEMP+ 
Ee ie OO re cB 016710 C a 57400, aeTEMP 
2687 Ole4S2 OO1401 . BEQ +4 
26 1 104 HLT sADCB FAILED 
gb 1 737 016710 - TSTB  asTEMP 
1 1401 BEQ +4 
2691 012464 104006 HLT sTSTB FAILED 
gbae 012466 104400 SCOPE 
2694 012470 012737 000001 016710 MOV #1, J8TEMP 
2695 0120476 bl SEC 
26% 012500 105377 oo4206 DECB 2s TEMP+2 
2697 012504 737 016710 TST aaTEMP 
2698 012510 001401 BEQ +4 . 
gb33 Oiesie 1 HLT ;DECB FAILED 
e700 12514 1044 SCOPE 
2702 ;TEST OF COMBINED INDEXING AND INDIRECT 
2703 012516 012700 177772 MOV #-6,%0 
704 Diese 127027 O16666 125252 CMPB ant), #125252 
2705 012530 001401 BEQ 
2706 OleS3e 104000 HLT ;CMPB FAILED 
3707 012534 104400 SCOPE 
? 12536 012 17777 MOV #-6,%0 
ati WEE 35708 125252 016666 CMPB sw 125252, 9A(0) 
2711 O125S0 OO1401 | BEQ +4 
e712 O125S2 104000 HLT ;CMPB FAILED 
gel 012554 104400 SCOPE 
site 012556 012700 177772 MOV a6, x9 
2716 012562 O1e701 Ooo0002 MOV 
2717 O1e566 127071 O16666 ClbSb6 CMPB sac, dACL) 
St pices! rics fre CMPB FAILED 
5553 O1se0R LON400 CkOpE 
2721 sTEST BIC INSTRUCTION 
2722 O12602 012700 00006 MOV #+6, “0 
eres 012606 b1e767 77777 004074 MOV #-:' TEMP 
24 O10614 147067 O16666 004 BICB © gat), TEMP 
2725 Dlebee 122767 ieSeS2e OO4060 CMPB 30s #125252, TEMP 
2726 012630 001401 BEQ +4 
2727 Olebse 194098 HLT ;BICB FAILED 
28 012634 1044 SCOPE 
2730 012636 012700 177772 MOV a6, 0. 
373] Oles42 012737 177777 016700 MOV 
2732 012650 14 i 016710 CB fo: 8 ,OTENP(O) 
33 012656 ea? raid 000125 MPB 
734 O1c664 O01401 BEQ 
2735 Ol2666 104000 HLT ;BICB FAILED 
2736 012670 104400 SCOPE 
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016660 4B+2, 0 SADDRESS OF ADDRESS OF 8 
003754 a(9)4,8 


;CMP FAILED 


oO0000 


#B+4, “0 
3-(0),8 


:CMP FAILED 
O16 #8+4,%0 
003 a (0 05,8 

:CMPB FAILED 
016704 MOV #C+4, x0 
177777 016700 1 aye: 
016700 MP o4C, #177400 

; :CLRB FAILED 


Sagevias 


RRS 


#-1,a8C 
77772 #-6;%0 
772 #-6'%1 
66 aA(O), aTEMP(1) 
25 #177525, J#C 


st 


1 
1 
177 
0166 
1775 


Bis 


;BICB FAILED 


; TEST ito oe IS NOT DESTROYED = net SELECTION 
0S2525 MOV #52525, ~0 THIS IS CHECK LATER IN PROGRAM 
;TEST JSR INSTRUCTION 


ooono2 JSR %7, TISR2 PLACE PC ON STACK 
oS TISR1: BR TISR3 RETURN HERE ON RTS % 
- 013044 TISR2: CHPB a6, ATISRI CHECK FOR CORRECT PC ON STACK 
HLT s INCORRECT PC ON STACK 
RTS “7 RETURN TO INST AFTER JSR 
TISR3: SCOPE 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


= b+ bo = bb 2 bb be he he pe 


3 ity 
2 88 


isis 
é 


SoNreR BROKE 


“7 D4? s INSTRUCTION UNDER TEST 
013066 MP 376, ATISRI+G sTEST THE STACK 


HLT ;PC_OF JSR DID NOT GO TO STACK 
TST (6)+ REPOSITION THE STACK 


SC 
; TEST NESTED SUBROUTINES 
000257 ccc ;CLEAR CONDITION CODES 


005726 - 
104400 


8 
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1 
01 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
" 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


WOIGIWIL) 
bao Re RH Pe ge 
pp 

TLeVMOEL 


SENAFSHLHSESLSD SRLVS 


seeetee | 
PU be be be he 
OcMo 


© dead eadGadtadtadeadead tad fb fe fb be eh ae a 
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003366 


123456 
003541 


051456 


123456 
003501 


151456 


123456 
003441 


047056 


123456 
003401 


047456 


003544 


003522 


003504 


003462 


COS444 


003422 


003404 


003362 








%? , SUBR6 
+4 
+4 
+4 


+4 


SCOPE 
;TEST ROTATE ODD BYTE 
SCOPE 


#123456, TEMP 
TEMP+1 

+4 

+4 

#051456, TEMP 
+4 


#123456, TEMP 
TEMP+1 

4 

+4 

#151456, TEMP 
+4 


#123456, TEMP 
TEMP+1 

+4 

+4 

#047056, TEMP 
.+4 


#123456, TEMP 
TEMP+ 


EMP+1 

+4 

4. 
#047456, TEMP 
+4 





NO4. 





;JSR OR RTS FAILED 
;JSR OR RTS FAILED 
;JSR OR RTS FAILED 
;JSR OR RTS FAILED 


;ROTATE ODD BYTE 


;ROTATE FAILED 


;V NOT CLEARED 


;ROTATE FAILED 


;ROTATE BYTE FAILED 





MAIN, MACYLL 27(732) 
O2aKSF P11 

2943 913330 104090 
asso 013332 104400 
S525 013394 909257 
‘ 

See3 i388 O1s7e7 
5954 OC13344 10267 
e855 913350 103401 
2856 O01 104000 
359 Qrasee 105000 
Seq Si33e0 deers? 
2869 013386 301401 
2861 013370 104000 
eee 013372 104400 
2854 013374 900277 
2865 013376 012767 
2866 913404 106367 
3057 013419 103401 
2868 O134l2 104000 
869 913414 102001 
2870 O13416 104000 
2871 013420 026727 
e872 913426 001401 
2873 013430 104000 
2874 913432 104400 


Cit767 
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Le?ie?e 


003341 


0C3324 


177777 
003301 


003264 


016440 


177777 
000136 
000012 
000126 


000134 


BOS 


HLT 
SCOPE 
cee 
‘003344 MOV 8-1, TEMP 
ASRB ss TEMP+] 
sc +4 
HLT 
BYC +4 
HLT é 
177777 CMP TEMP, 8-1 
BEQ +4 
HLT 
SCOPE 
scc : 
003304 MOV #-1, TEMP . 
ASL8 ss; TEMP+1 
BCS +4 
HLT 
BYC +4 
HLT 
177377 CMP TEMP, #177377 
BEO +4 
HLT 
SCOPE 
; TEST COMBINATION OF N, C AND V 
.MACR  TNCV 
BPL .+le 
BCC +20 
pve +30 
HLT 
8R .*e4 
BCC +16 
BYS +20 
HLT 
BR_ +14 
BYS +12 
HLT 
ae a -) 
BvC +4 
HL 
SCOPE 
ENDM 
CLR aeICOUNT 
: TEST ROTATING NUMBERS 
SCOPE 
000142 MOV a1 REFF 
TSROT: INC F 
JSR %7 ROTALL 
100077 CMP REFF #100077 
BNE TSROT 
BR TSRT2A 
900114 ROTALL: MOV REFF, TEST 


sROTATE ODD BYTE FAILED 
;CLEAR C 

sC NOT SET 

:V NOT CLEARED 


;SHIFT FAILED 


3¢ NOT SET 
:V NOT CLEARED 


;SHIFT BYTE FAILED 


sZsl 

3221, C=) 

*<22C, BUT Vel 

3220 

se=0, Cs] 

:2 NOT EQUAL C, V=l 
szsl1, C=0 

;2 NOT EQUAL ¢, V=l 
3220, C=0 

s22C, BUT Vel 


3NO ITERATION 


SINITIALIZE BASE NUMBER 
s INCREMENT NUMBER 










.MAIN. MACYLL 
OZOKBF.P1) 
23905 013500 
soe Otsetg 
7 13810 
a Hes 
te 135 
2311 013530 
e2l Me 
siz Bise08 
2915 013542 
$918 013544 
3317 013546 
2918 013550 
2519 013652 
eS 
2923 pi 3ee8 
2924 pt 3ee6 
2525 013565 
2926 13676 
5359 ot aesg 
2929 913576 
2930 913604 
293: 1 
e332 6136) 
613612 
013614 
21E 


Esa Sa Se abate ty 


SUNS usase eee enaRe Ny 


LLL TT 
e 5 
OOVDVOOVOOOOOVNOOOOO0000000 


S 
& 


“Sasser 


ene 
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00C012 


o00006 


1777686 


177744 


177734 







RUL TEST 
TEST 
ROR TEST 
ROR TEST 
ROR Tes! 
ROL TEST 
ROL TEST 
ROL TEST 
TNCY 
BPL +12 
BCC .*20 ;Z=1 
BV . +30 sesl, C=] 
HL sZ2sC, BUT V=sl 
ga +24 
Bcc +16 3220 
BVS .+20 3220, Cs] 
HLT :2 NOT EQUAL C, Vel 
Se 414 
8VS .+12 s2sl, C=O 
HLT :2 NOT EQUAL C, V=l 
3k oh 
BVC 4 3220, C=0 
HLT -2=2C, SUT V=l 
SCOPE 
emp TEST, REFF 
BE i. 
HLT sINITIAL NOT EQUAL TO FINAL 
RTS “? :ROTATE WORD FAILED 
REFF: 0 -GO0D DATA 
TEST: Q BAD DATA 
 REFSREFF 
-TEST ROTATING BYTE EVEN/ODD, ALL NUMBERS 
TSRT2A: MOV #-1,REFF 
TSROT2: INC REFF 
ISR %7 , ROTBE 
ISR %7. ROTBO 
CMP -t REF 
BNE TSROT 
gR ROTENI 
ROTBE: MOV REFF, TEST 
RORB «TEST sROTATE BYTE EVEN 
ORB =sCTTESST 
ORB ~—=sCTTEST 
ROLE TEST 
ROLB «TEST 
ROLE: TEST 
TNCV 
L +1 
Bcc .+2 32s] 
BvC . +30 3221, C=l 
T sesc, BUT V=l 
aS +24 
BCC +16 $250 
BvS +20 :220, C=l 
T :2 NOT EQUAL C, V=l 










-MAIN, MACYLL 271732) 
DZOKSF.P11 


Re 


GIGIGIL) 
£45 
Td 


177642 «177636 


HERBS ERE RAeReuae 


5 
8 


P22e0R 


‘ 177540 «177534 


NONOVOOVOVOIVWIOVYVOVWOVKOVOWVOVBOOVVOVOOOOBWOOO0 
0" 0-2 0 b= 2 0 b= b— 0 be 82 b— 02 0 b= b= b= 0 B= b= b= B= 0 B= 0 bs bo bo bb be ee 


iene 
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ROTBO: 


BvS .*12 
HLT 

BR 24h 
BYC +4 
HLT 

SCOPE 

es TEST, REFF 
EQ +4 
HLT 

RTS % 
RORB TEST+1 
RORS TEST+1 
RORB TEST+1 
ROLB TEST+1 
ROLB TEST+! 
ROLB TEST+1 
ap. a 
BCC +20 
BYC +30 
HLT 

BR .*24 

BCC +16 

BVS +20 
HLT 

ES +14 

BVS +12 

HLT 

Sk +6 

BYC .o4 

HLT 

SCOPE 

CMP TEST, REFF 

BEG .*4 


“7 





: 









20 
by EQuAL ¢, v=l 


;ROTATE BYTE ODD 


321 

s2sl, C=l 

322C, BUT Vsi 

3220 ’ 

s220, C=l 

:2 NOT EQUAL C, V=l 
Z=1 


C=0 
2 NOT EQUAL C, V=l 


3220, C=0 
;2=C. BUT V=1 











EOS | 
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DZOKBF.P11 
2937 014064 104400 ROTENL: ore 
2338 ;WILL futon WO ay PASSES 
2999 014066 O0See7 177776 INC 177776 


Se ES BBS ccose 
j ev AND Brotrect Ret L "NUMBERS AGAINST FIXED NUMBERS 
3003 . A+ oat? pee »* ar EQUAL BI 
So I GUE BO aren 

¢ ‘ 
she 5tsit = 67 eae ARITST: INC ashe 





FOS 
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3007 O14116 900014 JSR “7 ApSUB 
177777 177462 MP a=] Re 


aS 


177450 177450 : MOV REF, TEST 
177442 NUMA, TEST 


nooo2 
oggded 177434 SB NUMA; TEST 
177426 177426 REF TES 


“7 


naaes | 


S8BSS88S 


— — <9 — bp 
DONIDMUCWru 


NUMA: OQ 

ARIEND: SCOPE 

» TEST Au, h, COMBINATIONS OF NUMBERS WITH a one 
a x 


SOMPAR 
, INIT “1 
CMP1: CMP 12 9% *ARE THE EQUAL 


;RO AND a DID_NOT COMPARE . 
31 at LIMIT 


SINCREMENT TO NEXT NUMBER 


CMP2: SCOPE 
; TEST COMPLIMENTING ALL NUMBERS 
CLR TEMP ;BASE DATA 


CLR TEMP+4 ; BASE EES 
TCOM: COM TEMP ' $COMPLIMENT DATA 
DEC TEMP+4 :DECREMENT REFERENCE 
CMP TEMP, TEMP+4 : ; COMPARE 
BEQ +4 ; TEST 
a :COMPLIMENT OR DECREMENT FAILED 


INC MP ; INCREMENT AND TEST FOR DONE 
Sor NOT FINISHED GC LOOP 


: TEST COMB (EVEN, BYTE) be 
PPE RENCE DATA 
T 


+ 
TEP, ; COMPARE 
4 ;COMPLIMENT OR INCREMENT BYTE FAILED 


3020 
Sass 
3023 
3024 
3025 
305? 
3028 
3036 
3031 
3032 
ee 
3035 
3036 
3037 
3038 
3039 
304C 
3041 
3042 
3043 
2044 
3045 
3046 


4 


Hee 


TCOM2: 


=} 
— 


TEST cons BD YTE) 
- CLR at ;BASE DATA 
CLR TEMP+4 REFERENCE DATA 


pea aioauiaital 





Gos 
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= 
o 


002327 TCOM3: COMB TEMP+1 ;0DD BYTE 
pees Re ett 
1? 002320 TEMP+1, TEMP+4 
BEQ +4 


— 
=) 
£ 
=I 


;COMPLIMENT BYTE FAILED 


ee 


002305 
002301 


58 
~ 


; TEST yt ALL we EVEN BYTE WITH vole 
TSCOMB: aes Ye » TEMP +1 : COMPARE 

;COMPARE FAILED 

;¥ IS NOT = TON 


sv 75 ST. 
002240 ADD #401, TEMP as 
177777 002232 8-1, TEMP 
TSCOMB 


016440 MOV #4000, d#ICOUNT 
WAITS: 
WAITS: 

016440 #10, J8ICOUNT 


_;TEST TO SEE IF 1/0 DEVICES WERE SELECTED 
001516 CMP5 ~=s«ié«dh377, WRG] sSELECTED DEVICES STORED IN REGL 
BEQ WAITS s BRANCH F NO DEVICES SELECTED 
SINTERRUPTS WILL OCC 
:IF DEVICES ARE SELECTED 


a 


= 
Oo cro 


I 
I 
I 
I 


nina 


2074 
cited 
3078 
3079 
3081 
3082 
3083 
30es 
3086 
3087 
3088 
3089 
3090 
3031 
3032 
3093 
203s 
3096 
3097 
2039 


QOOOoO0000 
= 


WAIT: we 


Cis44o #4000, 38ICOUNT 


sTEST SWAB 
177056 MOV 80200, TEST 
TEST 


+4 


BBIRAL OHO 


2O00K000000000 
0 ee 
BEReARERe 
4+~—D40-4 


SeeRRRMuESeeS | RE 


OPE 
CLR QsICOUNT 
; TEST ALL COMBINATIONS OF SWAB 
CLR TEST 
CLR REF 


WWIWWIWWIWIWIWOIWWUIWWIGIGLt) 
Os = 0 0 0 0 0s 0 


0+ 0 0 0 0 
@Onowmn CWO 


;NUMBER UNDER TEST 
;REFERENCE NUMBER 





HOS 
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TEST ;OPERATION UNDER TEST 
heel :TEST SWAB INSTRUCTION 
;SWAB FAILED 
s NeREPEYT REF RENCE NUMBER 
‘LOOP TILL DONE 


rest 
fEST#I 
SWABA 


016440 MOV #4000, J#ICOUNT 


002032 #-1, TEMP 
TEMP+1 
+4 
sADCB FAILED 
#377, TEMP 
: :ADCB FAILED 


i 


SCOPE 
;PROBLEM 11S 0300 17 AUG 1972 
MOV #100, %3 


016710 


209 
dais 


;BIT FAILED 
SCOPE 
ERESRT: . ;NOP IF NO ERE 
; TEST LEFT SHIFT 
SCOPE 


= 


sTEST OF LOGICAL SHIFT 
LOAD Re iT yr 

:LOAD SHIF Coun (LSH) WITH -16 
[COMPARE AC WITH 

:60 TO HLT IF BAO” 


;COMPARE MQ WITH l2S5eS2 
;G0 TO HLT IF BAD 


scones SR WITH 2 
T ON ee SHIFT) 


a 


Ss 


Bae 


me 


~ 
ee 
<= 
sts) 
_ 


; TEST RIGHT SHIFT 
COPE TEST OF ARITHMETIC SHIFT 
L amg sLOAD MQ ITH 0 
MO #-1, AC :LOAD AC WITH 


se , ASH SRONPARE AC a oad WITH 16. 


ee 


a: 


3120 
1 
i 
1 
aise 
HE, 
3153 
31293 
2130 
3! 
ie 
3134 
sie 
313 
3138 
3133 
aii? 
3i42 
ai 
side 
td 1 
8 104400 
3123 
Tt 
ie 
size 
2156 
3157 
3158 
31593 
a 
sie 
3163 
3164 
3165 
3166 
2167 
3168 
sigs 
3130 
3172 
3173 
3174 


R 
3 





-MAIN. MACYL1 271732) 14-SEP-76 10:54 PAGE 60 
OZOKBF.P11 


Te oe ~? . tPALT HLT roe 
Es [ee77? 000110 163270 MPB , cote ef a fh 10 
Q +4 KIP HLT IF 
015070 104000 HLT sHALT ON ERROR (RIGHT SHIFT) 
; TEST NORMALIZE 
Score 


2 
a 


TEST OF NORMALIZE 
#125252, INQ EL MQ WITH leSeSe 
TA 0, aAC Cue. WITH 170000 


#100005, aAc 5 COUP ARE WITH 100005 


FS 


; ON ERROR 
#52520, aM ; TH S2S520 
+4 ; 00D 


#3,98¢ 
- SHALT ON ERROR (NORMALIZE) 


aiesese,ano LORD Min e526 
#40000, OMUL 18 4 Gago8 


nigsese, aAc COMPARE ac UTA 1652 
:SKIP IF GOOD 


I GIGI GI 0 II) CI IG) COI) GI OI GIGI LI GI GIGI) 
0 2 bs Fb 0 0 bo bo 9b 9 b= fo fh ee 
BESFR IOS SS BSR RISB 3a~to 


tht ht ht AE lf 
SOREN SFSRLREVIESH 


SS88 


aMa 
+4 


“ 


% 
z 


#300, JSRE 
+4 


ze: 
SE 


2 
2 


en ee ee ee ee oe ee or os b= bo he bs 2 Fb he ho Be pw bo ee 


F S00D 
ERROR (MULTIPLY) 


Seg 


m 
w 
~ 


aa 
maar 


‘ 
os 
ASE 


SRe8 

SYS 
ee 

40 


2 b= b= b— be Ob hh 
00 NOU £ Wire 


MAA eat edat aca 
<5 
mix 
8 


tw 
_ 


SSRSNGeeeIOROnY = Ronson 


Ss 


ee ee re 


-— 


TEMP+ 
8177307 , TEMP 


a 
== 
io 
38 
oo 


ASSSSSIS 


#52525, “0 
4 


aasis 


e8Re9 
Bees 


fo 
8 


;SOME OPERATION DESTROYED %0 
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DZQKBF. 
3231 015334 012737 016504 900024 MOV #PFAIL, 3824 sPOWER FAIL VECTOR 
015342 012737 000340 Oo000c6 MOV #340, 1826 sPROCESSOR PRIORITY 
cy 015350 000401 SKPBEL: BR tt sSKIP OVER BELL-NOP ON CORE EXPANSION 
35 015252 000501 BR 
3236 015354 032777 OO0100 162702 BIT #00 aTTCSR 
3237 015362 001006 BNE BELL sDON’T RING BELL IF TTY IS BUSY 
3533 15364 O01 07 oo0466 iPrtt ne cOnaLE SDB 
3240 pt 3363 105777 nant TSTB arcsh 
3241 O01 100375 BPL 
42 154 ooco00 -SBELL: INC ig: ir COUNT LOCATION 
43 Ol 1 MOV %, {20 ol RESERVED INSTRUCTION 
TE ee ote, nd WaeGe0" 10 
soup pteate peerae Shadi e MOV %0, 0810 = 
3247 015422 006701 6701 sATTEMPT TO EXECUTE SIGN EXTEND 
a 54g pease weed o00008 o1ssse2 hv #6, DUYESRT ;NO TRAP, PROCESSOR IS NOT=20, 15,05 
3504 pease Basa BR air tie 
3251 015436 012737 000002 O1SSS2 BEG20: MOV. te OYESRT sTRAP OCC 
O1S5444 012737 OO000l2 O00010 BEGANY: MOV ule,9 #10 ‘RESTORE HALT FOR RESERVED INC 
$253 sROUTINE TO CHECK FOR TRACE TRAP TO BE RUN WITH PROGRAM 
3255 : SAVE OLD CONTENTS SET UP FOR TRACE TRAP 
3255 O1S54S2 O0S046 YESTR: (6) 
3257 015454 032777 010000 162512 tt #10000, aSRPTR ;INHIBIT “T" TRAP IF SET 
3258 015462 001013 BNE ACT 
3259 015464 012737 o0155S2 000014 MOV #YESRT, ael4 :T TRAP VECTOR 
3260 015472 005167 000052 COM RPE 
3261 015476 001405 BEQ 
3262 015500 012716 o00020 MOV 50. ( sSET TRACE T 
3263 O15504 O1e746 OO4416 YESTRI: MOV SERIN. -(6) START OF Teer WITH TRACE ON 
3264 015510 YESTRe: RTI 
3265 015512 O01 oooo4e2 ACT: MOV as42, 0 sARE WE UNDER ACT? 
3266 015516 00177; BEQ YESTRI : 
326 g15520 1 015592 000014 MOV #CLEAR, 2814 TQ BANK ZERO 
3268 015526 O01 15532 MOV #CLEAR, “7 
3269 015532 o00005 CLEAR: RESET sCLER THE WORLD 
3270 015534 004710 (OcIcA: JSR “7 , aD 
3271 015536 o00240 NOP FOR ACT 11 
3272 O15540 000240 NOP 
3273 015542 00240 NOP 
3274 giSoui 000137 000570 IMP QeESTART 
3275 615550 900000 TRPB: 0 
3276 015552 o0000e2 YESRT: RTI ;RETURN TO PROGRAM FROM TRAP - CAN BE AN RTT 
3277 015554 00 HALT “RTT FAIL 
b15558 004416 TRPA: J QeBEGIN *BEGIN MODIFY BY EXPANSION 
1 , PRFLAG: *PRINT ROUTINE BUSY IF NOT ZERO 
3281 s ENTERED uITH SYSTEM TRAP CALL( 
se8 BPRINT T OUT THE HE ERROR PC AND STA Abs ‘REGISTER 
#283 15564 005767 177772 ist LAG S ROUTINE BUSY 
15570 001401 ay 
3285 015572 00002 a sYES EXIT 
3286 015574 005267 177762 INC PRFLAG NO SET FLAG 


ee es oo ——— 


KOS 
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#0 sERROR COUNT LOCATION 
JSRPTR, #20000 TEST FOR INHIBIT PRINT OUT 

+ sBRANCH TO PRIN 

PRINTI * INHIBIT, RETURN TO MAIN STREAM 
(6)+, SAVPC "PC OF FAILING ROUTINE 

(6)+, SAVCC CC_OF ERROR CONDITION 
-(6);-(6) "REPOSITION THE STACK 

#140: STATUS 
aTcsR ;WAIT FOR FLAG 


74 
#215, JTDBR sFILLER CHARACTER. 
aTcsR 
#212, JTDBR sLINE FEED 
a CSR 


eonee 


bb D— b= b—* p= FF = pe 


peserens 
SNe 


OO00000000 
43 


58 
oa 


zee 
S 
oO 


Eres 


oO000-— 


;SAVE Re 
;SAVE R3 
;SAVE RY 


Seiad 
£oO 
PE tat= 
ao 
rons 


a4 
8 
g 


;PRINT OCTAL NUMBER 
;SPACE BETWEEN WORDS 


fo 


252R SS5SSFS0 


eicieiciats 
a 


;PRINT OCTAL NUMBER 


fo 


000 
000 
000 
000 
0 00 
105777 000 
100375 
0 000 
000 
00 
000 


aN 


;WHERE CPU TEST IS AT 
;RESTORE REGISTERS 


Eytiisesntesesntestes 
Sree 
8 


2 be 0 be he 
WONWU£CWU-O 


SAYRE, %2 
SAVRS,%3 
SAVRY, %4 
#377, dTDBR | 
aTCSR 
OSRPTR sTEST FOR HALT SWITCH 


;HALT ON ERROR SET 
;CLEAR FLAG WHEN DONE 


BRRDBRA ERDAS 
3 


85 

or 
—-—-O000 
RRR 


sea 


Bh be bs BB he 2 Bs be Bb bh be bb be 8 6 0 he bo st be fs ht es Pe pice Ft Fin Pie Ps Fee 


Be PeReaRSeones 


PRFLAG 
#400, JSRPTR 
EXPRINT 

ART sRESTART_ON ERROR 
"RETURN TO MAIN STREAM 


0 

177566 ;DATA 

177564 sSTATUS 

BUFF =F IN ; ;END OF PROGRAM-SP AREA. 


CLR BINCT 
CLR WGTCT 
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8 


012704 016352 LIST, “4 :GET LIST ADDRESS 
012767 900008 WS, ASCNT 


000236 
bodsts 


Dp 3 aiGh PRINT 1 
;PO0S SIGN PRINT 0 


sPUT MASK IN R3 
orca cl oO LEN aN HE 
$END IN BCTBL SRaRRCTER 


:ZERO, WRITE O IN LIST 
s COUNT UP TO 


“AND RE 
:SAME BINARY WEIGHT 
;KEEP COUNTN 


#260, BINCT "ADD ASCII PREFIX 
BINCT, (4)+ WRITE ASCII CHAR IN LIST 
SEVEN, DECML ‘EXPAND BINARY WEIGHT 


35 ate ih List 
;SET X3 FOR ADD LOOP 
;MAKING SEVENTY BY SEVEN 


be 
70 
7e 
74 


: 


;NX SEVEN SET GET NX OCTAL 
;SEND S CHAR TO TTY 


a 


IT 
-(4) 3TDBR 
ascnt 

HM 


HOF 
WAITe 
oTESR 
“7 ;HEAD FOR HOME 


at ay Ay a 
Ewe 


;FINISH PRINTING GET NXT NUM 


SRORae Seep o RNS 


o 


& 


;SCOPE LOOP ROUTINE ENTERED BY USER TRAP 
;SCOPE OR/AND ITERATION LOOP FOR EACH TEST 4000 TIMES 





MOS 
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040000 161602 SCOPEC: BIT #40000, aSRPTR -;TEST SR FOR SCOPE 
O18 B SCOPEB rYES _SCOPE 
oo4o0o 161572 #4000, ISRPTR :NO - TEST FOR ITERATION 
| SINHIBIT ITERATION 
ooc032 000026 MP . SCOPEF, ICOUNT 
BE SCOPEG 


002 INC SCOPEF 
80085 SCOPEB: p ' RETURN, 3%6 aT Dare STACK 


pooese SCOPEG: ‘  SCOPEF ia: COUNT 
M 0%6 , RETURN ive SCOPE RETURN POINTER 


Bey 


TURN INLINE-NEXT TEST 


RTI 
COUNT: 4000 
COPEF : ;COUNT LOCATION FOR ITERATION LOOP 
RETURN: BEGIN . ADDRESS OF LAST TEST 


-GROUP OF NESTED SUBROUTINES 
SUBRI : RTS “7 ;ONE INSTRUCTION 


ee ee ed 


- ;ONE DEEP 
016450 SUBR3: 33, GUSUERE ;TWO DEEP 
177766 SUBRY: JSR #4, SUBRS ; THREE DEEP 
177766 SUBRS: he | ama ;FOUR DEEP 
177766 SUBR6:  U SUBRS ;FIVE DEEP 
;ENTER HERE OR POWER FAIL 


PFAIL: V %0,-(6) ;SAVE REGISTER OR STACK 
M % WHEN POWERING DOWN 


bs os 
WDONWU£ WMO 


34 
34 
34 
34 
34 
34 
34 
4 


0 

0 

0 

0 
20 0 
el O16 
ee O16 
e3 0 
e4 0 
0 
0 


Be BS 


ODdDNdOKO0O0000 

eR ee 

COC Orruna 
Ow £sMVuMO 


M 
000006 ;IN CASE OF NO EAE 
#HAC, «0 


roe 








NOS. 


-MAIN, MACY11 27(732) 14-SEP-76 10:54 PAGE 65 
CZ9KBF .P11 ‘ 


OAC, (%0)+ 
ana, (40)+ 
ip UE) 
M sSTORE STACK POSITION, POWER FAIL FLAG 
161236 ARESTART, 24 
T sHALT ON POWER DOWN NORMAL 
:STACK IS SAVED HERE 


HMG: : 
HSC: ; 
RESTART: OV on “6 ;RESTORE REGISTER OFF STACK 


or 


;MQ MUST BE LOADED BEFORE AC 


t sRESTORE TIME OUT 
161172 ¢ sWHEN POWERING UP 


016570 
;POWER FAIL OCCURRED 


;RETURN TC MAIN LINE 


B: 125252 

;FIXED VALUES FOR USE IN TEST 
016656 B ;ADDRESS OF B 
OSeSeS 052525 


016656 .=B+10 
177777 : A: 
016672 


016672 .sAt4 
sADDRESS OF A+10 


000000 : 
016700 ;ADDRESS OF C 


016710 
000000 : 
016710 TEMP sADDRESS OF TEMP 


016716 
;ADDRESS OF TEMP+10 OR “D” 


: ;BUFFER FOR SP 
USER: TS :0V oad USER ROUTINE HERE IF 4KW, USE BANK! IF SkW 
;PDP-11 MEMORY DETERMINATION AND’ SETU 
;USE WITH VARIABLE CORE QUANTITY eySTENS 





wy @ 
SRRE | 
= 


e 


CAGE Ie nertererty 
piatsren ty 


Baie 


Anges eae! 
SSP RR esaaaeS 


eT ed ed ed oe ed eed 
WONIWUILS lumnm 


NENINENISINSENSESISISIN SENSIS SSIS 
BINS Loe Lor LUO LN LOOM rue 


SE SORe 


niaidet 


APTOS 


w 
£ 








O04416 
090401 


patos 


37770 
157770 


i70S2 
017055 
017062 
017066 
017072 


0 
177670 
069008 
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176564 DET: 
176346 


160744 DET4: 
0740 


TWOFOR: 
TWOEIG: ADC 


DETe: 


MOVE: 


STRT2S: 
STRTeY: 
STRT20: 
STRTL6: 

STRT le: F 


STRT8: 


xFER28: 
XFER24: 
XFER2O: 
XFERI6: 


+4 
aBEGIN, TRPA+2 






BO6 


sAPPLICABLE TO SYSTEM TEST 21 


#401 SKPBEL :BR .+4 
3082, DET) CHECK FOR DOP1 
; sNO CORE EXPANSION WITH DDP1 


“7? 
#1000,aSRPTR © :CHECK VARIABLE CORE SWITCH 
DETS SUSE VARIABLE CORE ROUTINE 


hi :4K ONL 
#DET2,4 :TRAP VECTOR SETUP 
40 : STRAP STATUS SETUP 

3837770 *CHECK FOR 

3857770 : CHECK 12K 
38077770 :CHECK FOR 16K 
38117770 “CHECK FOR 20K 
38137770 :CHECK FOR 24K 
38157770 CHECK FOR 28K 

STRT29 

(6) +, %2 sRETRIEVE TRAP PC 
(B+ :DISCARD TRAP STATUS WORD 
SE IGHT+4, %2 - 

STWELVE+4, “2 

T ; 8K 

sSXTEEN+4, “2 

STRTI : 12K 

aTWENTY+4, “2 

STRTIG ; 16K 

STWOFORS4, “2 

STRT2O : 20K 

STRTe4 24K 

y :SET UP MAIN CORE CURRENT 
(O)4+,(1L)¢ s MOVE ne 

40, a IN¢2 *MOVE COMPLETE? 

- :MOVE ANOTHER WORD 

“7 sMOVE COMPLE 

%7 , XFER2S START FER 
mobe4 :START 24K MODIFY 

%7 , XFEROY :START 24K TRANSFER 
mob20 : START MODIFY 

%.7 , XFER2O :START 20K TRANSFER 
Mop16 :START 16K MODIFY 

47 XFERIG s TART 16K TRANSFER 
mooie :START lek MODIFY 

%? XFERL2 :START lek TRANSFER 
node : START Bk MOOTEY 

4%? XFERS :START 8K TRANSFER 
mob4 :START 4K MODIFY 
#140000, %1 :SET UP MOVE START LOCATION 
¥%? MOVE :G0 TO MOVE SUBROUTINE 
#120009, 1 

%? MOVE 

#100000, “1 
4? MOVE 

860000, %1 












CO6 
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ZOKBF P11 
3550 017260 OO0476? 177 JSR 
3551 i Sseq 012701 sa8e0 XFER12: MOV «40000, “1 
3552 17270 D0476° 177650 sie ISR zn ve 
: ibe Bares Siti iS. st 

i ? S URN FROM TRANSFERS 
3556 017308 ble767 qaaey 116244 MODe4: mov sesit rrénc i eoooe , 
322; Bt ise ? eee 8 MOD20: MOV Gti sdb0e, FpP B+ 100002 rs 
3559 91733 Ole76? O00240 O7é60l2 MOV oe SKPBEL+100000 
3560 017336 Ole767 1044e4 osbel4 MOD16: MOV ae +1 00006 TRPA+EC002 
3561 O17344 3le76? 000240 055 MOV NOP LSKPBEL? 
3562 017352 012767 O64424 036200 MODL2: MOV abe ctig0006 TRPASHOOO2 
3563 017360 012767 OO0240 035762 MOV OP, SKPBEL +40000 
3564 O17368 Ole7vé7 O44424 DO16164 MODS: MOV tBE GOD TRPA+20002 
3565 017374 Ole7s7 Oooe4o O1s74e MOV SNOP, SKPBEL+20000 
3565 O17402 Ole767? Oev4e4 176150 MODY: MOV  *BEG Gtnezo0e. TRPAS2 

? 817419 Gle76? O0o0e40 175732 OV aNOP, SKPBEL 
3568 O17416 07 DET3: RTS %? sRETURN FROM MODIFY 
3569 sROUTINE TO SET ACTION ENABLE ON MA/MF PARITY MEMORIES 
#520 :CALL: JSR PC, .MAMF 
#08 472100 PARCSR= 172100 sADDRESS OF FIRST MA/MF PA 
114 PARVEC= 114 [ADDRESS OF PARITY INTERRU 
3674 999904 ERRVECSY 
900500 

3578 
ae 017420 012737 OO0S0& OffCO4 .MAMF: MOV #ERRVEC +2, JHERRVEC 
3581 017426 012737 000092 o0d0ce MOV @RTI, DRERRVEC +2 
3582 017434 012700 172100 MOV #PARCSR, RO ;GET FIRST CSR ADDRESS 
3583 O:744c Ole702 Cl MOV ® 
3595 ; :SET TIME OUT INDICATOR 
3536 017444 O1272C 00001 18: MOV #1, (RO)+ : SET RCTION EN NABLE IF AVAI 
2 :BRANCH IF CSR NOT AVAILAS 
3588 017452 006302 ASL R2 :SHIFT AVAILABILITY INDICA 
3589 917452 103374 gcc 1§ 






3530 000207 RTS 
3531 017458 104000 . PARSRY: HLT ;PARITY ERROR 
s2a5 17460 000137 000570 0 dsESTART 
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ZOKBF P11 CROS -- USER SYMBOLS 
s 018666 1620 1625 1654 1660 1666 lee 1679 1684 4891 1697 YAY, 171 74) 
1749 1773 1237 1734 2039 139 2199 2205 2ie e2e0 Ss ee 224 2s4 
2260 e266 s5'5 e278 e285 2230 297 2304 31! 2318 “2341 2349 2643 
2704 710 71 e7ve4 e766 34718 3472 3474 476 
ac 9002S2 7108 154s 1S6 3169% 3171 3184* 3186 3199 g2le# 3214 ° 3438 3453% 
acT 015Sle 3258 3261 32658 
ADSUB 014136 3007 30les 
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